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

[Stephen Adkins]

cvsuser     04/02/18 05:23:08

  Modified:    P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
  Log:
  added 'verbatim' op to params
  
  Revision  Changes    Path
  1.29      +13 -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.28
  retrieving revision 1.29
  diff -u -w -r1.28 -r1.29
  --- DBI.pm    18 Nov 2003 21:37:09 -0000      1.28
  +++ DBI.pm    18 Feb 2004 13:23:08 -0000      1.29
  @@ -1,13 +1,13 @@
   
   ######################################################################
  -## File: $Id: DBI.pm,v 1.28 2003/11/18 21:37:09 spadkins Exp $
  +## File: $Id: DBI.pm,v 1.29 2004/02/18 13:23:08 spadkins Exp $
   ######################################################################
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Repository;
   
   package P5EEx::Blue::Repository::DBI;
  -$VERSION = do { my @r=(q$Revision: 1.28 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.29 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "P5EEx::Blue::Repository" );
   
  @@ -358,6 +358,12 @@
                       $sqlop = $sqlop{$repop};
                   }
               }
  +
  +            if ($repop eq "verbatim") {
  +                $where .= ($colnum == 0) ? "where $params->{$param}\n" : "  and 
$params->{$param}\n";
  +                next;
  +            }
  +
               $column_def = $tabcols->{$column};
               next if (!defined $column_def);  # skip if the column is unknown
               if (! defined $paramvalues->{$colstr}) {
  @@ -729,6 +735,11 @@
                   $column = $1;
                   $sqlop = $sqlop{$repop};
               }
  +        }
  +
  +        if ($repop eq "verbatim") {
  +            push(@criteria_conditions, $params->{$param});
  +            next;
           }
   
           $column_def = $table_def->{column}{$column};