X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=9e62b00ef89e90bce2ac99d5accdc47c76a88b5a;hb=574c662700d607102a192f559b4d3cd52b8a688f;hp=0921cb37360e27786faf6a23020ceb281542f3d9;hpb=77340c5ea513c0b80bb15101581425092b2a431a;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 0921cb373..9e62b00ef 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -350,7 +350,7 @@ if ( $payby_default eq 'HIDE' ) {
print qq!';
- foreach my $payby (qw( CARD BILL COMP )) {
+ foreach my $payby (qw( CARD CHEK BILL COMP )) {
foreach my $field (qw( payinfo payname )) {
print qq!';
@@ -399,18 +399,22 @@ if ( $payby_default eq 'HIDE' ) {
my %payby = (
'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!,
- 'BILL' => qq!Billing
P.O.
${r}Exp !. expselect("BILL", "12-2037"). qq!
Attention
!,
+ 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'BILL' => qq!Billing
P.O.
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP"),
);
+ my( $account, $aba ) = split('@', $payinfo);
+
my %paybychecked = (
'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!,
- 'BILL' => qq!Billing
P.O.
${r}Exp !. expselect("BILL", $cust_main->paydate). qq!
Attention
!,
+ 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'BILL' => qq!Billing
P.O.
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP", $cust_main->paydate),
);
$cust_main->payby($payby_default) unless $cust_main->payby;
- for (qw(CARD BILL COMP)) {
+ for (qw(CARD CHEK BILL COMP)) {
print qq!