summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2005-04-07 09:26:18 +0000
committerivan <ivan>2005-04-07 09:26:18 +0000
commitd18a2abec5a0323c26fbc5704fb1a2675eaea352 (patch)
tree46eb53a8542a993e63ceae5cd1d14502590adad5
parent98702b4c03cacfc0bd3b1ce665af2a559cacc8ff (diff)
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)
-rw-r--r--FS/FS/Record.pm5
-rwxr-xr-xFS/bin/freeside-setup2
-rwxr-xr-xbin/dbdef-create2
-rwxr-xr-xbin/fix-sequences2
4 files changed, 5 insertions, 6 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 2b74da43a..5dbcd4d4b 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -9,7 +9,7 @@ use Carp qw(carp cluck croak confess);
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 @@ sub replace {
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 @@ sub replace {
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);
diff --git a/FS/bin/freeside-setup b/FS/bin/freeside-setup
index 30ef2051c..a2ef31eb1 100755
--- a/FS/bin/freeside-setup
+++ b/FS/bin/freeside-setup
@@ -9,7 +9,7 @@ use Getopt::Std;
use Locale::Country;
use Locale::SubCountry;
use DBI;
-use DBIx::DBSchema 0.21;
+use DBIx::DBSchema 0.25;
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ColGroup::Unique;
diff --git a/bin/dbdef-create b/bin/dbdef-create
index a449d67cc..fea02c8c5 100755
--- a/bin/dbdef-create
+++ b/bin/dbdef-create
@@ -2,7 +2,7 @@
use strict;
use DBI;
-use DBIx::DBSchema 0.22;
+use DBIx::DBSchema 0.26;
use FS::UID qw(adminsuidsetup datasrc driver_name);
my $user = shift or die &usage;
diff --git a/bin/fix-sequences b/bin/fix-sequences
index 2ff89d3e5..dc4abd751 100755
--- a/bin/fix-sequences
+++ b/bin/fix-sequences
@@ -4,7 +4,7 @@
use strict;
use DBI;
-use DBIx::DBSchema 0.21;
+use DBIx::DBSchema 0.26;
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ColGroup::Unique;