/[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 29 by dpavlin, Thu Dec 7 22:13:56 2006 UTC revision 30 by dpavlin, Thu Dec 7 23:14:57 2006 UTC
# Line 101  sub take_action { Line 101  sub take_action {
101          my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||          my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||
102                  $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;
103    
104          $dbh->do("SET client_encoding = UTF8");          $dbh->do("SET client_encoding = UTF8") if ($db->dsn =~ /Pg/);
105    
106          my $sql = $self->argument_value('sql_query');          my $sql = $self->argument_value('sql_query');
107    
Legend:
Removed from v.29  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.26