From: ivan <ivan>
Date: Wed, 4 Jan 2012 04:05:07 +0000 (+0000)
Subject: fix td_eft1464 echeck batch format for modern style Canadian separate branch number... 
X-Git-Tag: freeside_2_3_1~38
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=2a482fd2579548bf190ccdc505b87f2f40ea68df

fix td_eft1464 echeck batch format for modern style Canadian separate branch number & routing code, RT#15920
---

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.