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 5ba5b0a..90a14ea 100644 (file)
--- 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 ) {