${r}Contact name (last, first) |
-END
+
+Service address
+(>same as billing address)
+<%= include('cust_main/contact.html', $cust_main, 'ship_', '', $disabled ) %>
- 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;
+<%= include( 'cust_main/billing.html', $cust_main,
+ 'invoicing_list' => \@invoicing_list,
+ )
+%>
- $cust_main->ship_state( $statedefault )
- unless $cust_main->ship_state
- || $cust_main->ship_country ne $countrydefault;
+',
- &table("#cccccc"), " |
---|
";
-
- my($payinfo, $payname)=(
- $cust_main->payinfo,
- $cust_main->payname,
- );
-
- 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 number ${r}Bank name !,
- 'DCHK' => qq!Electronic check (on-demand) ${r}Account number ${r}ABA/Routing number ${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) !;
+ to.value = '';
}
- }
-
- 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 number ${r}Bank name !,
- 'DCHK' => qq!Electronic check (on-demand) ${r}Account number ${r}ABA/Routing number ${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!payby eq "$_") {
- print qq! CHECKED> $paybychecked{$_} | !;
+ } else {
+ if ( from.value == undefined ) {
+ to.value = '';
} else {
- print qq!> $payby{$_}!;
+ to.value = from.value;
}
}
-
- print " $r required fields for each billing type";
-
+ //alert(from + " (" + from.type + "): " + to.name + " => " + to.value);
}
-if ( defined $cust_main->dbdef_table->column('comments') ) {
- print "
Comments", &itable("#cccccc"),
- qq!",
- " | ";
-}
+
+
+ |