projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ef8fa8a
)
another upgrade fix for ancient datasets
author
ivan
<ivan>
Sat, 23 Oct 2010 01:23:25 +0000
(
01:23
+0000)
committer
ivan
<ivan>
Sat, 23 Oct 2010 01:23:25 +0000
(
01:23
+0000)
FS/FS/cust_pay.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pay.pm
b/FS/FS/cust_pay.pm
index
5eb1d66
..
aa43de4
100644
(file)
--- a/
FS/FS/cust_pay.pm
+++ b/
FS/FS/cust_pay.pm
@@
-803,9
+803,10
@@
sub _upgrade_data { #class method
my $h_cust_pay = $cust_pay->h_search('insert');
if ( $h_cust_pay ) {
next if $cust_pay->otaker eq $h_cust_pay->history_user;
my $h_cust_pay = $cust_pay->h_search('insert');
if ( $h_cust_pay ) {
next if $cust_pay->otaker eq $h_cust_pay->history_user;
- $cust_pay->otaker($h_cust_pay->history_user);
+ #$cust_pay->otaker($h_cust_pay->history_user);
+ $cust_pay->set('otaker', $h_cust_pay->history_user);
} else {
} else {
- $cust_pay->
otaker(
'legacy');
+ $cust_pay->
set('otaker',
'legacy');
}
delete $FS::payby::hash{'COMP'}->{cust_pay}; #quelle kludge
}
delete $FS::payby::hash{'COMP'}->{cust_pay}; #quelle kludge