projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 83450 - fixed rateplan export
[freeside.git]
/
FS
/
FS
/
pay_batch
/
nacha.pm
diff --git
a/FS/FS/pay_batch/nacha.pm
b/FS/FS/pay_batch/nacha.pm
index
befba09
..
23dda4c
100644
(file)
--- a/
FS/FS/pay_batch/nacha.pm
+++ b/
FS/FS/pay_batch/nacha.pm
@@
-136,8
+136,9
@@
$DEBUG = 0;
#XXX paytype should actually be in the batch, but this will do for now
#27 checking debit, 37 savings debit
#XXX paytype should actually be in the batch, but this will do for now
#27 checking debit, 37 savings debit
- my $transaction_code = ( $cust_
main
->paytype =~ /savings/i ? '37' : '27' );
+ my $transaction_code = ( $cust_
pay_batch
->paytype =~ /savings/i ? '37' : '27' );
+ # not $self->payname?
my $cust_name = substr($cust_main->name. (' 'x22), 0, 22);
$i++;
my $tracenum = $dest. substr(('0'x7). $i, -6);
my $cust_name = substr($cust_main->name. (' 'x22), 0, 22);
$i++;
my $tracenum = $dest. substr(('0'x7). $i, -6);