<%=
@@ -182,10 +200,12 @@ else {
$cardselect .= qq!!;
}
$cardselect .= '';
+
+ my $table = '';
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 !,
+ 'CARD' => qq!$table* Card type | $cardselect | * Card number | | * Expiration | !. expselect("CARD"). qq! | * Name on card | | !,
+ 'DCRD' => qq!$table* Card type | $cardselect | * Card number | | * Expiration | !. expselect("DCRD"). qq! | * Name on card | | !,
'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 !,
@@ -196,7 +216,8 @@ else {
if ( $cvv_enabled ) {
foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5
- $payby{$payby} .= qq!CVV2 (help) | | !;
+ my $cvv_r = $require_cvv ? '* ' : '';
+ $payby{$payby} .= qq!${cvv_r}CVV2 (help) | | !;
}
}
if ( $paystate_enabled ) {
@@ -214,8 +235,8 @@ else {
my( $account, $aba ) = split('@', $payinfo);
my %paybychecked = (
- 'CARD' => '* Card type | $cardselect | * Card number | | * Expiration | !. expselect("CARD", $paydate). qq! | * Name on card | | !,
- 'DCRD' => qq!Credit card *$cardselect *Exp !. expselect("DCRD", $paydate). qq! *Name on card !,
+ 'CARD' => qq!$table* Card type | $cardselect | * Card number | | * Expiration | !. expselect("CARD", $paydate). qq! | * Name on card | | !,
+ 'DCRD' => qq!$table* Card type | $cardselect | * Card number | | * Expiration | !. 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 !,
'LECB' => qq!Phone bill billing ${r}Phone number !,
@@ -226,7 +247,8 @@ else {
if ( $cvv_enabled ) {
foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5
- $paybychecked{$payby} .= qq!CVV2 (help) | | !;
+ my $cvv_r = $require_cvv ? '* ' : '';
+ $paybychecked{$payby} .= qq!${cvv_r}CVV2 (help) | | !;
}
}
if ( $paystate_enabled ) {
@@ -246,9 +268,9 @@ else {
}
my %payby_index = ( 'CARD' => qq/Credit Card/,
- 'DCRD' => qq/Credit Card/,
+ 'DCRD' => qq/Credit Card (no auto-charge)/,
'CHEK' => qq/Check/,
- 'DCHK' => qq/Check/,
+ 'DCHK' => qq/Check (no auto-charge)/,
'LECB' => qq/Phone Bill Billing/,
'BILL' => qq/Billing/,
'COMP' => qq/Complimentary/,
@@ -268,7 +290,7 @@ HTML::Widgets::SelectLayers->new(
options => \%options,
selected_layer => $selected_layer,
form_name => 'dummy',
- html_between => ' ',
+ html_between => ' ',
form_action => 'dummy.cgi',
layer_callback => sub { my $layer = shift; return ( shift @hide_payment_fields ? '' : $paybychecked{$layer} ) . ' |