X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_pay.pm;h=90a14ea02af052ae5e7c92898bb7b3cd544603d8;hb=ea811d7900590c66ed62b56c889c1042897e87e3;hp=5ba5b0a7d118a6f60a199f39472987cc6bb03560;hpb=8e003fd0a8d49800d4a7211cbc2aeeacc72928a4;p=freeside.git

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