[freeside-commits] freeside/FS/FS Conf.pm, 1.461, 1.462 cust_main.pm, 1.578, 1.579

[Erik Levinson]

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

Modified Files:
	Conf.pm cust_main.pm 
Log Message:
echeck: add optional bank branch format, RT13360

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.461
retrieving revision 1.462
diff -u -w -d -r1.461 -r1.462
--- Conf.pm	21 Jun 2011 18:20:39 -0000	1.461
+++ Conf.pm	23 Jun 2011 04:08:19 -0000	1.462
@@ -4455,6 +4455,13 @@
   },
   
   {
+    'key'         => 'cust_main-require-bank-branch',
+    'section'     => 'UI',
+    'description' => 'An alternate DCHK/CHEK format; require entry of bank branch number.',
+    'type'        => 'checkbox',
+  },
+  
+  {
     'key'         => 'cust-edit-alt-field-order',
     'section'     => 'UI',
     'description' => 'An alternate ordering of fields for the New Customer and Edit Customer screens.',

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.578
retrieving revision 1.579
diff -u -w -d -r1.578 -r1.579
--- cust_main.pm	29 Apr 2011 15:07:42 -0000	1.578
+++ cust_main.pm	23 Jun 2011 04:08:19 -0000	1.579
@@ -1910,8 +1910,12 @@
   } elsif ( $check_payinfo && $self->payby =~ /^(CHEK|DCHK)$/ ) {
 
     my $payinfo = $self->payinfo;
-    $payinfo =~ s/[^\d\@]//g;
-    if ( $conf->exists('echeck-nonus') ) {
+    $payinfo =~ s/[^\d\@\.]//g;
+    if ( $conf->exists('cust_main-require-bank-branch') ) {
+      $payinfo =~ /^(\d+)\@(\d+)\.(\d+)$/ or return 'invalid echeck account at branch.bank';
+      $payinfo = "$1\@$2.$3";
+    }
+    elsif ( $conf->exists('echeck-nonus') ) {
       $payinfo =~ /^(\d+)\@(\d+)$/ or return 'invalid echeck account at aba';
       $payinfo = "$1\@$2";
     } else {