freeside/FS/FS Record.pm,1.100,1.101

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv9390/FS/FS

Modified Files:
	Record.pm 
Log Message:
depend on DBIx::DBSchema 0.26 for dbdef-create (for Pg 'public' schema fix) and 0.25 in freeside-setup and Record.pm (for DBD::Pg 1.40 is bunk fix)

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -d -r1.100 -r1.101
--- Record.pm	1 Apr 2005 22:34:32 -0000	1.100
+++ Record.pm	7 Apr 2005 09:26:18 -0000	1.101
@@ -9,7 +9,7 @@
 use File::CounterFile;
 use Locale::Country;
 use DBI qw(:sql_types);
-use DBIx::DBSchema 0.23;
+use DBIx::DBSchema 0.25;
 use FS::UID qw(dbh getotaker datasrc driver_name);
 use FS::SearchCache;
 use FS::Msgcat qw(gettext);
@@ -883,8 +883,6 @@
   my $new = shift;
   my $old = shift;  
 
-  my $saved = {};
-
   if (!defined($old)) { 
     warn "[debug]$me replace called with no arguments; autoloading old record\n"
      if $DEBUG;
@@ -911,6 +909,7 @@
   return $error if $error;
   
   # Encrypt for replace
+  my $saved = {};
   if ($conf->exists('encryption') && defined(eval '@FS::'. $new->table . 'encrypted_fields')) {
     foreach my $field (eval '@FS::'. $new->table . '::encrypted_fields') {
       $saved->{$field} = $new->getfield($field);