From 45583b397d64be8c31cba0334ad89e41f4ac1d0e Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 6 Apr 2007 23:57:35 +0000
Subject: integrate new echeck fields into freeside backend payment processing

---
 httemplate/misc/payment.cgi         | 33 ++++++++++++++++++++++++++++++++-
 httemplate/misc/process/payment.cgi |  2 +-
 2 files changed, 33 insertions(+), 2 deletions(-)

(limited to 'httemplate')

diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
index 728eba7b9..1008a216b 100644
--- a/httemplate/misc/payment.cgi
+++ b/httemplate/misc/payment.cgi
@@ -151,13 +151,19 @@ function OLiframeContent(src, width, height, name) {
     </TD>
   </TR>
 % } elsif ( $payby eq 'CHEK' ) {
-%     my( $payinfo1, $payinfo2, $payname, $ss ) = ( '', '', '', '' );
+%     my( $payinfo1, $payinfo2, $payname, $ss, $paytype, $paystate,
+%         $stateid, $stateid_state )
+%       = ( '', '', '', '', '', '', '', '' );
 %     if ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
 %       $cust_main->paymask =~ /^([\dx]+)\@([\dx]+)$/i
 %         or die "unparsable payinfo ". $cust_main->payinfo;
 %       ($payinfo1, $payinfo2) = ($1, $2);
 %       $payname = $cust_main->payname;
 %       $ss = $cust_main->ss;
+%       $paytype = $cust_main->getfield('paytype');
+%       $paystate = $cust_main->getfield('paystate');
+%       $stateid = $cust_main->getfield('stateid');
+%       $stateid_state = $cust_main->getfield('stateid_state');
 %     }
 %
 
@@ -166,6 +172,8 @@ function OLiframeContent(src, width, height, name) {
   <TR>
     <TD ALIGN="right">Account&nbsp;number</TD>
     <TD><INPUT TYPE="text" SIZE=10 NAME="payinfo1" VALUE="<%$payinfo1%>"></TD>
+    <TD ALIGN="right">Type</TD>
+    <TD><SELECT NAME="paytype"><% join('', map { qq!<OPTION VALUE="$_" !.($paytype eq $_ ? 'SELECTED' : '').">$_</OPTION>" } @FS::cust_main::paytypes) %></SELECT></TD>
   </TR>
   <TR>
     <TD ALIGN="right">ABA/Routing&nbsp;number</TD>
@@ -178,6 +186,15 @@ function OLiframeContent(src, width, height, name) {
     <TD ALIGN="right">Bank&nbsp;name</TD>
     <TD><INPUT TYPE="text" NAME="payname" VALUE="<%$payname%>"></TD>
   </TR>
+  <TR>
+    <TD ALIGN="right">Bank&nbsp;state</TD>
+    <TD><% include('../edit/cust_main/select-state.html', #meh 
+                   'empty'   => '(choose)',
+                   'state'   => $paystate,
+                   'country' => $cust_main->country,
+                   'prefix'  => 'pay',
+                  ) %></TD>
+  </TR>
   <TR>
     <TD ALIGN="right">
       Account&nbsp;holder<BR>
@@ -185,6 +202,20 @@ function OLiframeContent(src, width, height, name) {
     </TD>
     <TD><INPUT TYPE="text" NAME="ss" VALUE="<%$ss%>"></TD>
   </TR>
+  <TR>
+    <TD ALIGN="right">
+      Account&nbsp;holder<BR>
+      Driver&rsquo;s&nbsp;license&nbsp;or&nbsp;state&nbsp;ID&nbsp;#
+    </TD>
+    <TD><INPUT TYPE="text" NAME="stateid" VALUE="<%$stateid%>"></TD>
+    <TD ALIGN="right">State</TD>
+    <TD><% include('../edit/cust_main/select-state.html', #meh 
+                   'empty'   => '(choose)',
+                   'state'   => $stateid_state,
+                   'country' => $cust_main->country,
+                   'prefix'  => 'stateid_',
+                  ) %></TD>
+  </TR>
 % } 
 
 
diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi
index a5f4d4208..8878f5255 100644
--- a/httemplate/misc/process/payment.cgi
+++ b/httemplate/misc/process/payment.cgi
@@ -26,7 +26,7 @@
 %my $payby = $1;
 %my %payby2fields = (
 %  'CARD' => [ qw( address1 address2 city state zip ) ],
-%  'CHEK' => [ qw( ss ) ],
+%  'CHEK' => [ qw( ss paytype paystate stateid stateid_state ) ],
 %);
 %my %type = ( 'CARD' => 'credit card',
 %             'CHEK' => 'electronic check (ACH)',
-- 
cgit v1.2.1