[freeside-commits] freeside/FS/FS/pay_batch td_eft1464.pm, 1.6, 1.6.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/pay_batch
In directory wavetail.420.am:/tmp/cvs-serv32280

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	td_eft1464.pm 
Log Message:
fix td_eft1464 echeck batch format for modern style Canadian separate branch number & routing code, RT#15920

Index: td_eft1464.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch/td_eft1464.pm,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -u -w -d -r1.6 -r1.6.2.1
--- td_eft1464.pm	21 Apr 2011 06:07:14 -0000	1.6
+++ td_eft1464.pm	4 Jan 2012 04:05:07 -0000	1.6.2.1
@@ -101,6 +101,9 @@
   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.