diff options
| author | ivan <ivan> | 2008-02-22 01:09:31 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-02-22 01:09:31 +0000 |
| commit | ea811d7900590c66ed62b56c889c1042897e87e3 (patch) | |
| tree | 5bcd2b99c3e5126c08659add54483273ebe9a489 /FS/FS | |
| parent | 8e003fd0a8d49800d4a7211cbc2aeeacc72928a4 (diff) | |
want to upgrade legacy payments even if they are deprecated COMP payby...
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/cust_pay.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 5ba5b0a7d..90a14ea02 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -703,8 +703,11 @@ sub _upgrade_data { #class method } else { $cust_pay->otaker('legacy'); } + + delete $FS::payby::hash{'COMP'}->{cust_pay}; #quelle kludge my $error = $cust_pay->replace; die $error if $error; + $FS::payby::hash{'COMP'}->{cust_pay} = ''; #restore it $count++; if ( $DEBUG > 1 && $lastprog + 30 < time ) { |