/[SQLSession]/trunk/lib/SQLSession/Action/DoSQL.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SQLSession/Action/DoSQL.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 13 by dpavlin, Sun Dec 3 13:28:48 2006 UTC revision 20 by dpavlin, Sun Dec 3 18:03:30 2006 UTC
# Line 34  use Jifty::Action schema { Line 34  use Jifty::Action schema {
34                          $dbs->unlimit;                          $dbs->unlimit;
35                          [{                          [{
36                                  display_from => 'name',                                  display_from => 'name',
37                                  value_from => 'name',                                  value_from => 'id',
38                                  collection => $dbs,                                  collection => $dbs,
39                          }];                          }];
40                  };                  };
# Line 92  sub take_action { Line 92  sub take_action {
92          my $database = $self->argument_value('database');          my $database = $self->argument_value('database');
93          warn "database: $database\n";          warn "database: $database\n";
94    
95          my $dbs = SQLSession::Model::DatabaseCollection->new;          my $db = SQLSession::Model::Database->new;
96          $dbs->limit( column => 'name', value => $database );          $db->load_by_cols( id => $database ) ||
97          my $db = $dbs->first || $self->result->error("Can't find database $database");                  $self->result->error("Can't find database $database");
98    
99          my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||          my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||
100                  $self->result->error("Can't connect to " . $db->dsn . " as " . $db->login . "<br/>" . $DBI::errstr) && return 0;                  $self->result->error("Can't connect to " . $db->dsn . " as " . $db->login . "<br/>" . $DBI::errstr) && return 0;
Legend:
Removed from v.13  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.26