diff options
author | ivan <ivan> | 2010-07-25 07:08:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-07-25 07:08:59 +0000 |
commit | 649cb6a173a4278f3c4e0c960ce5b71422329222 (patch) | |
tree | 059e26c4d0955614116d1807fd5257c1f655c343 /FS/FS/cust_pay.pm | |
parent | b0b00f5e3adc74e2b9f39cc7827da9403ca42be6 (diff) |
proceed with upgrade even when N/A cards can't be recovered
Diffstat (limited to 'FS/FS/cust_pay.pm')
-rw-r--r-- | FS/FS/cust_pay.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index f15c85b..c55dd48 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 ) { |