diff options
author | ivan <ivan> | 2012-01-04 04:05:06 +0000 |
---|---|---|
committer | ivan <ivan> | 2012-01-04 04:05:06 +0000 |
commit | a5c34fdbd8eb7ec795e4e133936808ce0c242e27 (patch) | |
tree | 88a63afb24cd8a6e7898d49520ff6379898e1f94 /FS/FS/pay_batch | |
parent | e81fcc3454632f6a60173a139cb6be268658c4ea (diff) |
fix td_eft1464 echeck batch format for modern style Canadian separate branch number & routing code, RT#15920
Diffstat (limited to 'FS/FS/pay_batch')
-rw-r--r-- | FS/FS/pay_batch/td_eft1464.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm index afdc1bef3..3a6befef5 100644 --- 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. |