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

[Stephen Adkins]

cvsuser     04/02/18 05:34:23

  Modified:    P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
  Log:
  fixed variable naming problem
  
  Revision  Changes    Path
  1.30      +4 -4      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.29
  retrieving revision 1.30
  diff -u -w -r1.29 -r1.30
  --- DBI.pm    18 Feb 2004 13:23:08 -0000      1.29
  +++ DBI.pm    18 Feb 2004 13:34:23 -0000      1.30
  @@ -1,13 +1,13 @@
   
   ######################################################################
  -## File: $Id: DBI.pm,v 1.29 2004/02/18 13:23:08 spadkins Exp $
  +## File: $Id: DBI.pm,v 1.30 2004/02/18 13:34:23 spadkins Exp $
   ######################################################################
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Repository;
   
   package P5EEx::Blue::Repository::DBI;
  -$VERSION = do { my @r=(q$Revision: 1.29 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.30 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "P5EEx::Blue::Repository" );
   
  @@ -360,7 +360,7 @@
               }
   
               if ($repop eq "verbatim") {
  -                $where .= ($colnum == 0) ? "where $params->{$param}\n" : "  and 
$params->{$param}\n";
  +                $where .= ($colnum == 0) ? "where $paramvalues->{$colstr}\n" : "  
and $paramvalues->{$colstr}\n";
                   next;
               }
   
  @@ -738,7 +738,7 @@
           }
   
           if ($repop eq "verbatim") {
  -            push(@criteria_conditions, $params->{$param});
  +            push(@criteria_conditions, $paramvalues->{$param});
               next;
           }