${r}Contact name (last, first) |
-END
-
- print < ,
-
-END
-
- print <
- Company | |
- ${r}Address | |
- | |
- ${r}City | | ${r}State |
-END
-
- #false laziness with regular state
- $cust_main->ship_country( $countrydefault ) unless $cust_main->ship_country;
-
- $cust_main->ship_state( $conf->config('statedefault') || 'CA' )
- unless $cust_main->ship_state || $cust_main->ship_country ne 'US';
-
- my($ship_county_html, $ship_state_html, $ship_country_html) =
- FS::cust_main_county::regionselector( $cust_main->ship_county,
- $cust_main->ship_state,
- $cust_main->ship_country,
- 'ship_',
- 'changed(this)', );
-
- print "$ship_county_html $ship_state_html";
-
- print qq! | ${r}Zip | | !;
-
- my($ship_daytime,$ship_night,$ship_fax)=(
- $cust_main->ship_daytime,
- $cust_main->ship_night,
- $cust_main->ship_fax,
- );
-
- print <${r}Country | $ship_country_html |
- $daytime_label | |
- $night_label | |
- Fax | |
-END
+%>
- print "${r}required fields ";
+
+Service address
+(>same as billing address)
+<%= include('cust_main/contact.html', $cust_main, 'ship_', '', $disabled ) %>
-}
+<% } %>
+<%
# billing info
sub expselect {
@@ -335,7 +242,9 @@ sub expselect {
$return .= ">$_";
}
$return .= qq!/ | !;
- my $invoicing_list = join(', ', grep { $_ ne 'POST' } @invoicing_list );
+ print qq!>Postal mail invoice!;
+ print qq!FAX invoice |
!;
+ my $invoicing_list = join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list );
print qq!Email invoice |
!;
print "Billing type |
",
- "",
+ "", '',
&table("#cccccc"), "";
my($payinfo, $payname)=(
@@ -409,25 +342,40 @@ if ( $payby_default eq 'HIDE' ) {
my %payby = (
'CARD' => qq!Credit card (automatic)
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!,
'DCRD' => qq!Credit card (on-demand)
${r}
${r}Exp !. expselect("DCRD"). qq!
${r}Name on card
!,
- 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
- 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !,
+ 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !,
'LECB' => qq!Phone bill billing
${r}Phone number !,
'BILL' => qq!Billing
P.O.
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP"),
);
+ if ( $cust_main->dbdef_table->column('paycvv') ) {
+ foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 bs
+ $payby{$payby} .= qq!
CVV2 (help) !;
+ }
+ }
+
my( $account, $aba ) = split('@', $payinfo);
my %paybychecked = (
'CARD' => qq!Credit card (automatic)
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!,
'DCRD' => qq!Credit card (on-demand)
${r}
${r}Exp !. expselect("DCRD", $cust_main->paydate). qq!
${r}Name on card
!,
- 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
- 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing code
${r}Bank name !,
+ 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !,
+ 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !,
'LECB' => qq!Phone bill billing
${r}Phone number !,
'BILL' => qq!Billing
P.O.
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP", $cust_main->paydate),
);
+ if ( $cust_main->dbdef_table->column('paycvv') ) {
+ my $paycvv = $cust_main->paycvv;
+
+ foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 bs
+ $paybychecked{$payby} .= qq!
CVV2 (help) !;
+ }
+ }
+
+
$cust_main->payby($payby_default) unless $cust_main->payby;
for (qw(CARD DCRD CHEK DCHK LECB BILL COMP)) {
print qq!otaker;
print qq!!,
- qq! !,
" |