diff options
author | ivan <ivan> | 2010-04-04 23:37:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-04-04 23:37:33 +0000 |
commit | fac08924a141cf8ce3d6ca3c3bfd4e47348a37a4 (patch) | |
tree | 028248c679b6cd343e2ebfa139e7611bc8b65bee /FS/FS/cust_pay_void.pm | |
parent | 184f55e2a743f2305f70f5bc35961b2b92c946cb (diff) |
fix otaker upgrade
Diffstat (limited to 'FS/FS/cust_pay_void.pm')
-rw-r--r-- | FS/FS/cust_pay_void.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm index fa851e1..e18a4f6 100644 --- a/FS/FS/cust_pay_void.pm +++ b/FS/FS/cust_pay_void.pm @@ -2,7 +2,7 @@ package FS::cust_pay_void; use strict; use base qw( FS::otaker_Mixin FS::payinfo_Mixin FS::Record ); -use vars qw( @encrypted_fields ); +use vars qw( @encrypted_fields $otaker_upgrade_kludge ); use Business::CreditCard; use FS::UID qw(getotaker); use FS::Record qw(qsearchs dbh fields); # qsearch ); @@ -14,6 +14,7 @@ use FS::cust_pay; use FS::cust_pkg; @encrypted_fields = ('payinfo'); +$otaker_upgrade_kludge = 0; =head1 NAME @@ -160,7 +161,8 @@ Currently unimplemented. =cut sub replace { - return "Can't modify voided payments!"; + return "Can't modify voided payments!" unless $otaker_upgrade_kludge; + shift->SUPER::replace(@_); } =item check @@ -238,6 +240,7 @@ sub cust_main { # Used by FS::Upgrade to migrate to a new database. sub _upgrade_data { # class method my ($class, %opts) = @_; + local($otaker_upgrade_kludge) = 1; $class->_upgrade_otaker(%opts); } |