From: ivan <ivan>
Date: Fri, 22 Feb 2008 01:09:31 +0000 (+0000)
Subject: want to upgrade legacy payments even if they are deprecated COMP payby...
X-Git-Tag: TRIXBOX_2_6~48
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ea811d7900590c66ed62b56c889c1042897e87e3

want to upgrade legacy payments even if they are deprecated COMP payby...
---

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 ) {