diff options
| author | Mark Wells <mark@freeside.biz> | 2013-03-06 12:16:21 -0800 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-03-06 12:16:21 -0800 |
| commit | 5fe75497ce60689c128d93a3f1c9339e7c5e4e49 (patch) | |
| tree | e35e6464c5d190ebcbd2f0e7519a54735e166091 /FS/FS/cust_pay_batch.pm | |
| parent | 57e39d6d93feee6f6d4ccc32dceced3fde53de2d (diff) | |
fix payment lookup when revoking batch payments, #18458
Diffstat (limited to 'FS/FS/cust_pay_batch.pm')
| -rw-r--r-- | FS/FS/cust_pay_batch.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm index 4138436..e1e32d3 100644 --- a/FS/FS/cust_pay_batch.pm +++ b/FS/FS/cust_pay_batch.pm @@ -369,6 +369,12 @@ sub decline { # Void the payment my $cust_pay = qsearchs('cust_pay', { custnum => $new->custnum, + batchnum => $new->batchnum + }); + # these should all be migrated over, but if it's not found, look for + # batchnum in the 'paybatch' field also + $cust_pay ||= qsearchs('cust_pay', { + custnum => $new->custnum, paybatch => $new->batchnum }); if ( !$cust_pay ) { |