<%=
@@ -173,7 +213,7 @@ Contact Information
my( $account, $aba ) = split('@', $payinfo);
my %paybychecked = (
- 'CARD' => qq!* Card type | $cardselect | * Card number | | * Expration | !. expselect("CARD", $paydate). qq! | * Name on card | | !,
+ 'CARD' => '* Card type | $cardselect | * Card number | | * Expration | !. expselect("CARD", $paydate). qq! | * Name on card | | !,
'DCRD' => qq!Credit card *$cardselect *Exp !. expselect("DCRD", $paydate). qq! *Name on card !,
'CHEK' => qq!Electronic check ${r}Account number Type ${r}ABA/Routing code ${r}Bank name !,
'DCHK' => qq!Electronic check ${r}Account number Type ${r}ABA/Routing code ${r}Bank name !,
@@ -204,9 +244,6 @@ Contact Information
}
}
-use Tie::IxHash;
-use HTML::Widgets::SelectLayers;
-
my %payby_index = ( 'CARD' => qq/Credit Card/,
'DCRD' => qq/Credit Card/,
'CHEK' => qq/Check/,
@@ -232,7 +269,7 @@ HTML::Widgets::SelectLayers->new(
form_name => 'dummy',
html_between => ' ',
form_action => 'dummy.cgi',
- layer_callback => sub { my $layer = shift; return $paybychecked{$layer}. ' '; },
+ layer_callback => sub { my $layer = shift; return ( shift @hide_payment_fields ? '' : $paybychecked{$layer} ) . ' |