<%=
@@ -120,54 +177,75 @@ Contact Information
<%=
my $cardselect = '';
my %payby = (
'CARD' => qq!Credit card *$cardselect *Exp !. expselect("CARD"). qq! *Name on card !,
'DCRD' => qq!Credit card *$cardselect *Exp !. expselect("DCRD"). qq! *Name on card !,
- 'CHEK' => qq!Electronic check ${r}Account number ${r}ABA/Routing code ${r}Bank name !,
- 'DCHK' => qq!Electronic check ${r}Account number ${r}ABA/Routing code ${r}Bank name !,
+ 'CHEK' => qq!Electronic check ${r}Account number ${r}ABA/Routing code Type {$r}Bank State ${r}Bank name !,
+ 'DCHK' => qq!Electronic check ${r}Account number Type ${r}ABA/Routing code {$r}Bank State ${r}Bank name !,
'LECB' => qq!Phone bill billing ${r}Phone number !,
- 'BILL' => qq!Billing P.O. *Exp !. expselect("BILL", "12-2037"). qq! *Attention !,
+ 'BILL' => qq!Billing P.O. Attention!,
'COMP' => qq!Complimentary *Approved by *Exp !. expselect("COMP"),
'PREPAY' => qq!Prepaid card *!,
);
if ( $cvv_enabled ) {
foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5
- $payby{$payby} .= qq! |