projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
184f55e
)
fix otaker upgrade
author
ivan
<ivan>
Sun, 4 Apr 2010 23:37:33 +0000
(23:37 +0000)
committer
ivan
<ivan>
Sun, 4 Apr 2010 23:37:33 +0000
(23:37 +0000)
FS/FS/cust_pay_void.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pay_void.pm
b/FS/FS/cust_pay_void.pm
index
fa851e1
..
e18a4f6
100644
(file)
--- 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 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 );
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');
use FS::cust_pkg;
@encrypted_fields = ('payinfo');
+$otaker_upgrade_kludge = 0;
=head1 NAME
=head1 NAME
@@
-160,7
+161,8
@@
Currently unimplemented.
=cut
sub replace {
=cut
sub replace {
- return "Can't modify voided payments!";
+ return "Can't modify voided payments!" unless $otaker_upgrade_kludge;
+ shift->SUPER::replace(@_);
}
=item check
}
=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) = @_;
# 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);
}
$class->_upgrade_otaker(%opts);
}