/[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 20 by dpavlin, Sun Dec 3 18:03:30 2006 UTC revision 24 by dpavlin, Mon Dec 4 19:22:48 2006 UTC
# Line 99  sub take_action { Line 99  sub take_action {
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;
101    
102            $dbh->do("SET client_encoding = UTF8");
103    
104          my $sql = $self->argument_value('sql_query');          my $sql = $self->argument_value('sql_query');
105    
106          warn "SQL: $sql\n";          warn "SQL: $sql\n";
Legend:
Removed from v.20  
changed lines
  Added in v.24
  ViewVC Help
Powered by ViewVC 1.1.26