From b48c02a92562395c84dbfe8c47db5c4ba14891a0 Mon Sep 17 00:00:00 2001 From: Christopher Burger Date: Sun, 10 Mar 2019 19:12:20 -0400 Subject: RT# 82988 - Fixed so only formats that can handle electronic refunds can download those files --- FS/bin/freeside-eftca-upload | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'FS/bin/freeside-eftca-upload') diff --git a/FS/bin/freeside-eftca-upload b/FS/bin/freeside-eftca-upload index 503c7a35a..18656c97a 100755 --- a/FS/bin/freeside-eftca-upload +++ b/FS/bin/freeside-eftca-upload @@ -32,8 +32,12 @@ my @batches; if($opt_a) { local $@; + + my %criteria= ( 'status' => 'O', 'payby' => 'CHEK' ); + $criteria{'type'} = 'DEBIT' unless FS::pay_batch->can_handle_electronic_refunds('eft_canada'); + eval { - @batches = qsearch('pay_batch', { 'status' => 'O', 'payby' => 'CHEK' }) + @batches = qsearch('pay_batch', \%criteria) }; log_error_and_die ("Fatal database error: $@") if $@; -- cgit v1.2.1