diff options
| author | ivan <ivan> | 2008-02-22 01:09:32 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-02-22 01:09:32 +0000 |
| commit | cac03f92d02e0704fef96808c178fa523b9c3f87 (patch) | |
| tree | 32e60562a93a3c794b367f35da363623df35db87 | |
| parent | 14d75ba92440f6ca825c3c8dd7dfd402e85ce54f (diff) | |
want to upgrade legacy payments even if they are deprecated COMP payby...
| -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 ) { |