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

[Stephen Adkins]

cvsuser     03/01/21 12:27:34

  Modified:    P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
  Log:
  fixed bug on 'no_auto_in_param' for non-column params
  
  Revision  Changes    Path
  1.21      +10 -7     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.20
  retrieving revision 1.21
  diff -u -w -r1.20 -r1.21
  --- DBI.pm    30 Dec 2002 18:57:45 -0000      1.20
  +++ DBI.pm    21 Jan 2003 20:27:33 -0000      1.21
  @@ -1,13 +1,13 @@
   
   ######################################################################
  -## File: $Id: DBI.pm,v 1.20 2002/12/30 18:57:45 spadkins Exp $
  +## File: $Id: DBI.pm,v 1.21 2003/01/21 20:27:33 spadkins Exp $
   ######################################################################
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Repository;
   
   package P5EEx::Blue::Repository::DBI;
  -$VERSION = do { my @r=(q$Revision: 1.20 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.21 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "P5EEx::Blue::Repository" );
   
  @@ -371,7 +371,7 @@
                   elsif ($sqlop eq "in" || $sqlop eq "=") {
                       if ($quoted) {
                           $value =~ s/'/\\'/g;
  -                        if ($value =~ /,/ && ! 
$tabledef->{param}{$colstr}{no_auto_in_param}) {
  +                        if ($value =~ /,/ && ! 
$tabledef->{param}{$column}{no_auto_in_param}) {
                               $value =~ s/,/','/g;
                               $value = "('$value')";
                               $sqlop = "in";
  @@ -382,7 +382,7 @@
                           }
                       }
                       else {
  -                        if ($value =~ /,/ && ! 
$tabledef->{param}{$colstr}{no_auto_in_param}) {
  +                        if ($value =~ /,/ && ! 
$tabledef->{param}{$column}{no_auto_in_param}) {
                               $value = "($value)";
                               $sqlop = "in";
                           }
  @@ -1736,9 +1736,12 @@
           $row = $rows->[$rownum];
           $oldrow = $oldrows->[$rownum];
   
  -        #print "store_rows(): old=[", (defined $oldrow) ? (join(",", @$oldrow)) : 
"", "]\n";
  -        #print "store_rows(): new=[", join(",", @$row), "]\n";
  -        #print "sql=", $self->{sql}, "\n";
  +        if ($P5EEx::Blue::DEBUG && $context->dbg(2)) {
  +            print "store_rows(): old=[", (defined $oldrow) ? (join(",", @$oldrow)) 
: "", "]\n";
  +            print "store_rows(): new=[", join(",", @$row), "]\n";
  +            print "error=", $self->error(), "\n";
  +            print "sql=", $self->{sql}, "\n";
  +        }
   
           $ok = 1;
           if ($oldrow && $#$oldrow > -1) {  # old row existed