diff options
| author | ivan <ivan> | 2012-01-04 04:05:07 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2012-01-04 04:05:07 +0000 |
| commit | 2a482fd2579548bf190ccdc505b87f2f40ea68df (patch) | |
| tree | d16a119b0bb71597ff9ca7c51976486115c568f5 | |
| parent | 75e11f1d1a5ced24496b5732e290f7762403feb8 (diff) | |
fix td_eft1464 echeck batch format for modern style Canadian separate branch number & routing code, RT#15920
| -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. |