cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Repository DBI.pm

[spadkins]

cvsuser     02/04/17 12:19:54

  Modified:    P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
  Log:
  set the active SQL for diagnostic purposes
  
  Revision  Changes    Path
  1.11      +10 -2     p5ee/P5EEx/Blue/P5EEx/Blue/Repository/DBI.pm
  
  Index: DBI.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Repository/DBI.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -w -r1.10 -r1.11
  --- DBI.pm    5 Apr 2002 22:01:59 -0000       1.10
  +++ DBI.pm    17 Apr 2002 19:19:54 -0000      1.11
  @@ -1,13 +1,13 @@
   
   ######################################################################
  -## File: $Id: DBI.pm,v 1.10 2002/04/05 22:01:59 spadkins Exp $
  +## File: $Id: DBI.pm,v 1.11 2002/04/17 19:19:54 spadkins Exp $
   ######################################################################
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Repository;
   
   package P5EEx::Blue::Repository::DBI;
  -$VERSION = do { my @r=(q$Revision: 1.10 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.11 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "P5EEx::Blue::Repository" );
   
  @@ -1142,6 +1142,7 @@
       else {
           $sql = $self->mk_select_joined_rows_sql(@_);
       }
  +    $self->{sql} = $sql;
       $dbh = $self->{dbh};
       return undef if (!$dbh);
       return $dbh->selectrow_arrayref($sql);
  @@ -1164,6 +1165,7 @@
       else {
           $sql = $self->mk_select_joined_rows_sql(@_);
       }
  +    $self->{sql} = $sql;
       return $self->selectrange_arrayref($sql, $startrow, $endrow);
   }
   
  @@ -1171,6 +1173,7 @@
   sub insert_row {
       my ($self, $table, $cols, $row) = @_;
       my $sql = $self->mk_insert_row_sql($table, $cols, $row);
  +    $self->{sql} = $sql;
       my $dbh = $self->{dbh};
       return 0 if (!defined $dbh);
       return $dbh->do($sql);
  @@ -1194,6 +1197,7 @@
               last;
           }
       }
  +    $self->{sql} = $sql;
       $self->{numrows} = $nrows;
       return($ok);
   }
  @@ -1202,6 +1206,7 @@
   sub update_row {
       my ($self, $table, $cols, $row, $keycolidx) = @_;
       my $sql = $self->mk_update_row_sql($table, $cols, $row, $keycolidx);
  +    $self->{sql} = $sql;
       my $dbh = $self->{dbh};
       return 0 if (!defined $dbh);
       return $dbh->do($sql);
  @@ -1211,6 +1216,7 @@
   sub update_rows {
       my ($self, $table, $cols, $row, $params, $paramvalues) = @_;
       my $sql = $self->mk_update_rows_sql($table, $cols, $row, $params, $paramvalues);
  +    $self->{sql} = $sql;
       my $dbh = $self->{dbh};
       return 0 if (!defined $dbh);
       return $dbh->do($sql);
  @@ -1220,6 +1226,7 @@
   sub delete_row {
       my $self = shift;
       my $sql = $self->mk_delete_row_sql(@_);
  +    $self->{sql} = $sql;
       my $dbh = $self->{dbh};
       return 0 if (!defined $dbh);
       return $dbh->do($sql);
  @@ -1229,6 +1236,7 @@
   sub delete_rows {
       my $self = shift;
       my $sql = $self->mk_delete_rows_sql(@_);
  +    $self->{sql} = $sql;
       my $dbh = $self->{dbh};
       return 0 if (!defined $dbh);
       return $dbh->do($sql);