cvs commit: p5ee/App-Repository/lib/App/Repository DBI.pm

[Stephen Adkins]

cvsuser     05/04/25 09:18:08

  Modified:    App-Repository/lib/App/Repository DBI.pm
  Log:
  add column-level compression (and other functions) support
  
  Revision  Changes    Path
  1.26      +11 -2     p5ee/App-Repository/lib/App/Repository/DBI.pm
  
  Index: DBI.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/DBI.pm,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -r1.25 -r1.26
  --- DBI.pm    1 Apr 2005 14:42:32 -0000       1.25
  +++ DBI.pm    25 Apr 2005 16:18:08 -0000      1.26
  @@ -1430,6 +1430,9 @@
               }
           }
           $sql .= ($colnum == 0) ? "  ($col" : ",\n   $col";
  +        if ($tabcols->{$col}{dbexpr_update}) {
  +            $value = sprintf($tabcols->{$col}{dbexpr_update}, $value);
  +        }
           $values .= ($colnum == 0) ? "  ($value" : ",\n   $value";
       }
       $sql .= ")\n";
  @@ -1477,6 +1480,9 @@
                       $value =~ s/'/\\'/g;
                       $value = "'$value'";
                   }
  +                if ($tabcols->{$col}{dbexpr_update}) {
  +                    $value = sprintf($tabcols->{$col}{dbexpr_update}, 
$value);
  +                }
                   push(@values, $value);
               }
           }
  @@ -1612,6 +1618,9 @@
                       $value =~ s/'/\\'/g;
                       $value = "'$value'";
                   }
  +                if ($tabcols->{$col}{dbexpr_update}) {
  +                    $value = sprintf($tabcols->{$col}{dbexpr_update}, 
$value);
  +                }
                   push(@set, "$col = $value");
               }
           }