[freeside-commits] freeside/FS/FS cust_pay.pm,1.59,1.60

[Ivan,,,]

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

Modified Files:
	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.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- cust_pay.pm	22 Feb 2008 00:57:37 -0000	1.59
+++ cust_pay.pm	22 Feb 2008 01:09:31 -0000	1.60
@@ -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 ) {