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
/
FS
/
cust_main
/
Billing_Batch.pm
diff --git
a/FS/FS/cust_main/Billing_Batch.pm
b/FS/FS/cust_main/Billing_Batch.pm
index
0e713e9
..
c1bb35f
100644
(file)
--- a/
FS/FS/cust_main/Billing_Batch.pm
+++ b/
FS/FS/cust_main/Billing_Batch.pm
@@
-83,6
+83,10
@@
sub batch_card {
);
}
);
}
+ my $paycode= $options{paycode} || '';
+ my $batch_type = "DEBIT";
+ $batch_type = "CREDIT" if $paycode eq 'C';
+
my $oldAutoCommit = $FS::UID::AutoCommit;
local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
my $oldAutoCommit = $FS::UID::AutoCommit;
local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
@@
-95,6
+99,7
@@
sub batch_card {
my %pay_batch = (
'status' => 'O',
'payby' => FS::payby->payby2payment($payby),
my %pay_batch = (
'status' => 'O',
'payby' => FS::payby->payby2payment($payby),
+ 'type' => $batch_type,
);
$pay_batch{agentnum} = $self->agentnum if $conf->exists('batch-spoolagent');
);
$pay_batch{agentnum} = $self->agentnum if $conf->exists('batch-spoolagent');