[freeside-commits] freeside/FS/FS cust_pay.pm,1.79,1.80

[Ivan,,,]

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

Modified Files:
	cust_pay.pm 
Log Message:
proceed with upgrade even when N/A cards can't be recovered

Index: cust_pay.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -w -d -r1.79 -r1.80
--- cust_pay.pm	10 Jul 2010 06:23:43 -0000	1.79
+++ cust_pay.pm	25 Jul 2010 07:08:59 -0000	1.80
@@ -770,6 +770,11 @@
 
     my $cust_pay_pending =
       qsearchs('cust_pay_pending', { 'paynum' => $na->paynum } );
+    unless ( $cust_pay_pending ) {
+      warn " *** WARNING: not-yet recoverable N/A card for payment ".
+           $na->paynum. " (no cust_pay_pending)\n";
+      next;
+    }
     $na->$_($cust_pay_pending->$_) for qw( payinfo paymask );
     my $error = $na->replace;
     if ( $error ) {