@@ -28,26 +51,21 @@ Contact Information
*City |
|
*State/Country |
- |
+
+ <%=
+ ($county_html, $state_html, $country_html) =
+ regionselector( $county, $state, $country );
+
+ "$county_html $state_html";
+ %>
+ |
*Zip |
|
+ *Country |
+ <%= $country_html %> |
+
Day Phone |
|
@@ -97,18 +115,39 @@ Contact Information
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 !,
+ 'LECB' => qq!Phone bill billing
${r}Phone number !,
'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!,
'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"),
'PREPAY' => qq!Prepaid card
*!,
);
+ if ( $init_data->{'cvv_enabled'} ) {
+ foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5
+ $payby{$payby} .= qq!
CVV2 (help) !;
+ }
+ }
+
+ my( $account, $aba ) = split('@', $payinfo);
my %paybychecked = (
'CARD' => qq!Credit card
*$cardselect
*Exp !. 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
${r}ABA/Routing code
${r}Bank name !,
+ 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'LECB' => qq!Phone bill billing
${r}Phone number !,
'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", $paydate). qq!
*Attention
!,
'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate),
'PREPAY' => qq!Prepaid card
*!,
);
+ if ( $init_data->{'cvv_enabled'} ) {
+ foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5
+ $paybychecked{$payby} .= qq!
CVV2 (help) !;
+ }
+ }
+
for (@payby) {
if ( scalar(@payby) == 1) {
$OUT .= ''.
@@ -148,13 +187,11 @@ Contact Information
|
Password |
-
- (blank to generate) |
+ |
Re-enter Password |
-
- |
+ |
<%=
if ( $init_data->{'security_phrase'} ) {
@@ -169,10 +206,14 @@ ENDOUT
$OUT .= '';
}
%>
-
- Access number |
- <%= popselector($popnum) %> |
-
+<%=
+ if ( scalar(@$pops) ) {
+ $OUT .= 'Access number | '.
+ popselector($popnum). ' |
';
+ } else {
+ $OUT .= popselector($popnum);
+ }
+%>