1 <TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
4 <TH ALIGN="right"><%=$r%>Contact name<BR>(last, first)</TH>
6 <INPUT TYPE="text" NAME="<%=$pre%>last" VALUE="<%= encode_entities(${$pre.'last'}) %>" onChange="<%= $onchange %>" <%=$disabled%>> ,
7 <INPUT TYPE="text" NAME="<%=$pre%>first" VALUE="<%= encode_entities(${$pre.'first'}) %>" onChange="<%= $onchange %>" <%=$disabled%>>
12 <TD ALIGN="right">Company</TD>
14 <INPUT TYPE="text" NAME="<%=$pre%>company" VALUE="<%= encode_entities(${$pre.'company'}) %>" SIZE=70 onChange="<%= $onchange %>" <%=$disabled%>>
19 <TH ALIGN="right"><%=$r%>Address</TH>
21 <INPUT TYPE="text" NAME="<%=$pre%>address1" VALUE="<%= encode_entities(${$pre.'address1'}) %>" SIZE=70 onChange="<%= $onchange %>" <%=$disabled%>>
31 || ( !$pre && $ship_last )
36 $OUT .= qq!<FONT ID="${pre}address2_required" color="#ff0000" STYLE="$style">*</FONT> <FONT ID="${pre}address2_label" STYLE="$style"><B>Unit #</B></FONT>!;
40 <INPUT TYPE="text" NAME="<%=$pre%>address2" VALUE="<%= encode_entities(${$pre.'address2'}) %>" SIZE=70 onChange="<%= $onchange %>" <%=$disabled%>>
46 ($county_html, $state_html, $country_html, $city_html) =
47 FS::SelfService::regionselector( {
49 selected_city => ${$pre.'city'},
50 selected_county => ${$pre.'county'},
51 selected_state => ${$pre.'state'},
52 selected_country => ${$pre.'country'},
53 default_state => $statedefault,
54 default_country => $countrydefault,
55 locales => \@cust_main_county,
58 $OUT .= qq!<TH ALIGN="right">${r}City</TH>!;
59 $OUT .= qq!<TD>$city_html</TD>!;
60 $OUT .= qq!<TH ALIGN="right">${r}State/County</TH>!;
61 $OUT .= qq!<TD>$county_html $state_html</TD>!;
62 $OUT .= qq!<TH>${r}Zip</TH>!;
63 $OUT .= qq!<TD><INPUT TYPE="text" NAME="${pre}zip" VALUE="${$pre.'zip'}" SIZE=10 onChange="$onchange" $disabled></TD>!;
66 $OUT .= qq!<TH ALIGN="right">${r}Country</TH>!;
67 $OUT .= qq!<TD COLSPAN=5>$country_html</TD>!;
74 $OUT .= qq!var what = document.getElementById("${pre}city");!;
75 for (qw( city county state country ) ) {
76 $OUT .= "what.form.$pre$_.disabled = true;";
77 $OUT .= "what.form.$pre$_.style.backgroundColor = '#dddddd';";
86 <TD ALIGN="right">Day Phone</TD>
88 <INPUT TYPE="text" NAME="<%=$pre%>daytime" VALUE="<%= ${$pre.'daytime'} %>" SIZE=18 onChange="<%= $onchange %>" <%=$disabled%>>
93 <TD ALIGN="right">Night Phone</TD>
95 <INPUT TYPE="text" NAME="<%=$pre%>night" VALUE="<%= ${$pre.'night'} %>" SIZE=18 onChange="<%= $onchange %>" <%=$disabled%>>
100 <TD ALIGN="right">Fax</TD>
102 <INPUT TYPE="text" NAME="<%=$pre%>fax" VALUE="<%= ${$pre.'fax'} %>" SIZE=12 onChange="<%= $onchange %>" <%=$disabled%>>
107 <%=$r%>required fields<BR>
110 #my($county_html, $state_html, $country_html) =
111 # FS::cust_main_county::regionselector( $cust_main->get($pre.'county'),
112 # $cust_main->get($pre.'state'),
113 # $cust_main->get($pre.'country'),
120 'county' => ${$pre.'county'},
121 'state' => ${$pre.'state'},
122 'country' => ${$pre.'country'},
124 'onchange' => $onchange,
125 'disabled' => $disabled,
128 my @counties = counties( ${$pre.'state'},
131 my $county_style = scalar(@counties) > 1 ? '' : 'STYLE="visibility:hidden"';
133 my $r = qq!<font color="#ff0000">*</font> !;