From: ivan <ivan>
Date: Sun, 25 Jul 2010 07:08:59 +0000 (+0000)
Subject: proceed with upgrade even when N/A cards can't be recovered
X-Git-Tag: root_of_svc_elec_features~29
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=649cb6a173a4278f3c4e0c960ce5b71422329222

proceed with upgrade even when N/A cards can't be recovered
---

diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm
index f15c85b87..c55dd48b7 100644
--- a/FS/FS/cust_pay.pm
+++ b/FS/FS/cust_pay.pm
@@ -770,6 +770,11 @@ sub _upgrade_data {  #class method
 
     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 ) {