projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
75e11f1
)
fix td_eft1464 echeck batch format for modern style Canadian separate branch number...
author
ivan
<ivan>
Wed, 4 Jan 2012 04:05:07 +0000
(
04:05
+0000)
committer
ivan
<ivan>
Wed, 4 Jan 2012 04:05:07 +0000
(
04:05
+0000)
FS/FS/pay_batch/td_eft1464.pm
patch
|
blob
|
history
diff --git
a/FS/FS/pay_batch/td_eft1464.pm
b/FS/FS/pay_batch/td_eft1464.pm
index
afdc1be
..
3a6befe
100644
(file)
--- a/
FS/FS/pay_batch/td_eft1464.pm
+++ b/
FS/FS/pay_batch/td_eft1464.pm
@@
-101,6
+101,9
@@
$name = 'td_eft1464';
row => sub {
my ($cust_pay_batch, $pay_batch) = @_;
my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
+ if ( $aba =~ /^(\d+)\.(\d+)$/ ) { #branch.route
+ $aba = $2.$1; #routebranch
+ }
$i++;
# The 1464 byte format supports up to 5 payments per line,
# but we're only going to send 1.