[freeside-commits] freeside/FS/FS cust_pay.pm,1.50.2.9,1.50.2.10

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv26803

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_pay.pm 
Log Message:
want to upgrade legacy payments even if they are deprecated COMP payby...

Index: cust_pay.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay.pm,v
retrieving revision 1.50.2.9
retrieving revision 1.50.2.10
diff -u -d -r1.50.2.9 -r1.50.2.10
--- cust_pay.pm	22 Feb 2008 00:57:38 -0000	1.50.2.9
+++ cust_pay.pm	22 Feb 2008 01:09:32 -0000	1.50.2.10
@@ -703,8 +703,11 @@
     } 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 ) {