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

[Stephen Adkins]

cvsuser     02/12/30 10:57:45

  Modified:    P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
  Log:
  fixed no_auto_in_param bug
  
  Revision  Changes    Path
  1.20      +5 -5      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.19
  retrieving revision 1.20
  diff -u -w -r1.19 -r1.20
  --- DBI.pm    30 Aug 2002 17:52:05 -0000      1.19
  +++ DBI.pm    30 Dec 2002 18:57:45 -0000      1.20
  @@ -1,13 +1,13 @@
   
   ######################################################################
  -## File: $Id: DBI.pm,v 1.19 2002/08/30 17:52:05 spadkins Exp $
  +## File: $Id: DBI.pm,v 1.20 2002/12/30 18:57:45 spadkins Exp $
   ######################################################################
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Repository;
   
   package P5EEx::Blue::Repository::DBI;
  -$VERSION = do { my @r=(q$Revision: 1.19 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.20 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "P5EEx::Blue::Repository" );
   
  @@ -179,7 +179,7 @@
               $dbioptions = $self->{dbioptions};
               $dbschema   = $self->{dbschema};
   
  -            die "ERROR: missing DBI driver and/or db name [$dbidriver,$dbname] in 
configuration.\n"
  +            die "ERROR: missing DBI driver [$dbidriver] and/or db name [$dbname] in 
configuration.\n"
                   if (!$dbidriver || !$dbname);
   
               $self->{dsn} = "dbi:${dbidriver}:database=${dbname}";
  @@ -755,7 +755,7 @@
               elsif ($sqlop eq "in" || $sqlop eq "=") {
                   if ($quoted) {
                       $paramvalue =~ s/'/\\'/g;
  -                    if ($paramvalue =~ /,/ && ! 
$table_def->{param}{$param}{no_auto_in_param}) {
  +                    if ($paramvalue =~ /,/ && ! 
$table_def->{param}{$column}{no_auto_in_param}) {
                           $paramvalue =~ s/,/','/g;
                           $paramvalue = "('$paramvalue')";
                           $sqlop = "in";
  @@ -766,7 +766,7 @@
                       }
                   }
                   else {
  -                    if ($paramvalue =~ /,/ && ! 
$table_def->{param}{$param}{no_auto_in_param}) {
  +                    if ($paramvalue =~ /,/ && ! 
$table_def->{param}{$column}{no_auto_in_param}) {
                           $paramvalue = "($paramvalue)";
                           $sqlop = "in";
                       }