${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( $statedefault )
- unless $cust_main->ship_state
- || $cust_main->ship_country ne $countrydefault;
-
- 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 {
@@ -411,7 +307,7 @@ if ( $payby_default eq 'HIDE' ) {
print qq!Email invoice | !;
print "Billing type | ",
- "", '',
+ var achwindow = -1;
+ function achopen(filename,windowname,properties) {
+ achclose();
+ achwindow = window.open(filename,windowname,properties);
+ }
+ function achclose() {
+ if ( achwindow != -1 )
+ achwindow.close();
+ achwindow = -1;
+ }
+ ',
&table("#cccccc"), "";
my($payinfo, $payname)=(
@@ -434,8 +339,8 @@ 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"),
@@ -452,8 +357,8 @@ if ( $payby_default eq 'HIDE' ) {
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),
@@ -555,7 +460,7 @@ END
my $otaker = $cust_main->otaker;
print qq!!,
- qq! !,
" |