/[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 65 by dpavlin, Wed Jan 17 17:24:32 2007 UTC revision 66 by dpavlin, Thu Jan 25 20:28:42 2007 UTC
# Line 12  use base qw/SQLSession::Action Jifty::Ac Line 12  use base qw/SQLSession::Action Jifty::Ac
12    
13  use SQLSession::Model::DatabaseCollection;  use SQLSession::Model::DatabaseCollection;
14  use DBI;  use DBI;
15    use Time::HiRes qw/time/;
16    
17  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
18    
# Line 109  sub take_action { Line 110  sub take_action {
110    
111          warn "SQL: $sql\n";          warn "SQL: $sql\n";
112    
113            my $t = time();
114    
115          my $sth = $dbh->prepare( $sql ) ||          my $sth = $dbh->prepare( $sql ) ||
116                  $self->result->error( $dbh->errstr() ) && return 0;                  $self->result->error( $dbh->errstr() ) && return 0;
117    
118          $sth->execute() ||          $sth->execute() ||
119                  $self->result->error( $sth->errstr() ) && return 0;                  $self->result->error( $sth->errstr() ) && return 0;
120                    
121      $self->result->message('Query produced ' . (          $self->result->message('Query produced ' . (
122                  $sth->rows == 0 ?       'no results' :                  $sth->rows == 0 ?       'no results' :
123                  $sth->rows == 1 ?       'single row' :                  $sth->rows == 1 ?       'single row' :
124                                                          $sth->rows . ' rows'                  sprintf("%d rows in %.2fs", $sth->rows, time() - $t)
125          )) if ($sth->rows >= 0);          )) if ($sth->rows >= 0);
126    
127          $self->result->content( sth => $sth );          $self->result->content( sth => $sth );
Legend:
Removed from v.65  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.26