projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 82988 - Fixed so only formats that can handle electronic refunds can download...
[freeside.git]
/
FS
/
bin
/
freeside-eftca-upload
diff --git
a/FS/bin/freeside-eftca-upload
b/FS/bin/freeside-eftca-upload
index
503c7a3
..
18656c9
100755
(executable)
--- a/
FS/bin/freeside-eftca-upload
+++ b/
FS/bin/freeside-eftca-upload
@@
-32,8
+32,12
@@
my @batches;
if($opt_a) {
local $@;
if($opt_a) {
local $@;
+
+ my %criteria= ( 'status' => 'O', 'payby' => 'CHEK' );
+ $criteria{'type'} = 'DEBIT' unless FS::pay_batch->can_handle_electronic_refunds('eft_canada');
+
eval {
eval {
- @batches = qsearch('pay_batch',
{ 'status' => 'O', 'payby' => 'CHEK' }
)
+ @batches = qsearch('pay_batch',
\%criteria
)
};
log_error_and_die ("Fatal database error: $@")
if $@;
};
log_error_and_die ("Fatal database error: $@")
if $@;