From ea811d7900590c66ed62b56c889c1042897e87e3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 22 Feb 2008 01:09:31 +0000
Subject: [PATCH] want to upgrade legacy payments even if they are deprecated
 COMP payby...

---
 FS/FS/cust_pay.pm | 3 +++
 1 file changed, 3 insertions(+)

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