X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=9e62b00ef89e90bce2ac99d5accdc47c76a88b5a;hb=6f8a6c416174bcf8095c959085d14ba820425aad;hp=a76cd36d167eea2d4a6a9c93bfb76e55787ce91c;hpb=b97ccb2b958567490841cfc93d2c4a401d98cdb0;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index a76cd36d1..9e62b00ef 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -350,27 +350,25 @@ 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!';
}
#false laziness w/expselect
- my( $m, $y ) = (0, 0);
- if ( scalar(@_) ) {
- my $date = shift || '01-2000';
- if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
- ( $m, $y ) = ( $2, $1 );
- } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
- ( $m, $y ) = ( $1, $3 );
- } else {
- die "unrecognized expiration date format: $date";
- }
+ my( $m, $y );
+ my $date = $cust_main->paydate || '12-2037';
+ if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
+ ( $m, $y ) = ( $2, $1 );
+ } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
+ ( $m, $y ) = ( $1, $3 );
+ } else {
+ die "unrecognized expiration date format: $date";
}
- print qq!!.
+ qq!!;
}
@@ -401,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!