5 include( '/elements/location.html',
6 'object' => $cust_location
7 'prefix' => $pre, # prefixed to form field names
8 'onchange' => $javascript,
9 'geocode' => $geocode, #passed through
10 'censustract' => $censustract, #passed through
11 'no_asterisks' => 0, #set true to disable the red asterisks next
13 'address1_label' => 'Address', #label for address
14 'enable_coords' => 1, #show latitude/longitude fields
15 'enable_district' => 1, #show tax district field
16 'enable_censustract' => 1, #show censustract field
22 % if ( $opt{'alt_format'} ) {
25 <<%$th%> ALIGN="right">Location kind</<%$th%>>
27 <% include('/elements/select.html',
29 'field' => 'location_kind',
30 'id' => 'location_kind',
31 'disabled' => $disabled,
33 'options' => \@location_kind_options,
34 'labels' => $location_kind_labels,
35 'curr_value' => scalar($cgi->param('location_kind'))
36 || $object->get('location_kind'),
44 % if ( $label_prefix eq '_location' ) {
47 <TH ALIGN="right" ><% $opt{'locationname_label'} || emt('Location ID') %></TD>
50 NAME = "<%$pre%>locationname"
51 ID = "<%$pre%>locationname"
52 VALUE = "<% $object->get('locationname') |h %>"
54 onChange = "<% $onchange %>"
62 <& hidden.html, field => $pre.'locationname', value => $object->get('locationname') &>
67 <<%$th%> STYLE="width:16ex" ALIGN="right"><%$r%><% $opt{'address1_label'} || emt('Address') %></<%$th%>>
70 NAME = "<%$pre%>address1"
71 ID = "<%$pre%>address1"
72 VALUE = "<% $object->get('address1') |h %>"
74 onChange = "<% $onchange %>"
81 % if ( ! $opt{'alt_format'} ) { #regular format
84 <TH ALIGN="right"><FONT ID="<% $pre %>address2_required" color="#ff0000" <% $address2_label_style %>>*</FONT> <FONT ID="<% $pre %>address2_label" <% $address2_label_style %>><B>Unit #</B></FONT></TD>
87 NAME = "<%$pre%>address2"
88 ID = "<%$pre%>address2"
89 VALUE = "<% $object->get('address2') |h %>"
91 onChange = "<% $onchange %>"
98 % } else { # alternate format
100 <& hidden.html, field => $pre.'address2', value => $object->get('address2') &>
103 <<%$th%> ALIGN="right">Unit type and #</<%$th%>>
106 % my $location_type = scalar($cgi->param('location_type'))
107 % || $object->get('location_type');
108 % #my $location_number = scalar($cgi->param('location_number'))
109 % # || $object->get($pre.'location_number');
111 % if ( $object->get($pre.'address2') && ! $location_type ) {
114 % if ( 1 ) { #ikano, switch on via config
115 % tie my %location_types, 'Tie::IxHash',
116 % FS::part_export::ikano->location_types;
117 <% include('/elements/select.html',
119 'field' => 'location_type',
120 'id' => 'location_type',
121 'disabled' => $disabled,
123 'options' => [ keys %location_types ],
124 'labels' => \%location_types,
125 'curr_value' => $location_type,
126 'onchange' => 'location_type_changed',
129 <SCRIPT TYPE="text/javascript">
130 function location_type_changed (what) {
131 if ( what.options[what.selectedIndex].value == '' ) {
132 what.form.location_number.disabled = true;
133 what.form.location_number.style.backgroundColor = '#dddddd';
135 what.form.location_number.disabled = false;
136 what.form.location_number.style.backgroundColor = '#ffffff';
142 NAME = "location_type"
144 VALUE = "<% $location_type |h %>"
152 NAME = "location_number"
153 ID = "location_number"
154 VALUE = "<% scalar($cgi->param('location_number')) || $object->get('location_number') |h %>"
156 <% $disabled || ($location_type ? '' : 'DISABLED') %>
160 % #XXX i don't work so well when the dropdown is changed :/ i probably need to be triggered by "default service address"
161 % $alt_err =~ s/(ship_)?address2/'<B>'.encode_entities($object->get($1.'address2')).'<\/B>'/e;
172 <<%$th%> ALIGN="right">
173 % unless ($conf->exists('cust_main-no_city_in_address')) {
174 <% $r %><% mt('City') |h %>
177 <TD WIDTH="1"><% include('/elements/city.html', %select_hash, 'text_style' => \@style ) %></TD>
178 <<%$th%> ALIGN="right" WIDTH="1" ID="<%$pre%>countylabel" <%$county_style%>><%$r%>County</<%$th%>>
179 <TD WIDTH="1"><% include('/elements/select-county.html', %select_hash ) %></TD>
180 <<%$th%> ALIGN="right" WIDTH="1"><%$r%><% mt('State') |h %></<%$th%>>
182 <% include('/elements/select-state.html', %select_hash ) %>
184 <<%$th%> ALIGN="right" WIDTH="1"><%$r%><% mt('Zip') |h %></<%$th%>>
189 VALUE = "<% $object->get('zip') |h %>"
191 onChange = "<% $onchange %>"
199 <<%$th%> ALIGN="right"><%$r%><% mt('Country') |h %></<%$th%>>
200 <TD COLSPAN=6><% include('/elements/select-country.html', %select_hash ) %></TD>
203 % if ( $opt{enable_coords} ) {
205 <TH ALIGN="right"><% mt('Latitude') |h %></TD>
208 NAME = "<%$pre%>latitude"
209 ID = "<%$pre%>latitude"
210 VALUE = "<% $object->get('latitude') |h %>"
214 <FONT SIZE="-1" COLOR="#666666"><% mt('Longitude') |h %></FONT>
216 NAME = "<%$pre%>longitude"
217 ID = "<%$pre%>longitude"
218 VALUE = "<% $object->get('longitude') |h %>"
225 % foreach (qw(latitude longitude)) {
226 <& hidden.html, field => $pre.$_, value => $object->get($_) &>
230 % foreach (qw(coord_auto geocode censustract censusyear)) {
231 <& hidden.html, field => $pre.$_, value => $object->get($_) &>
234 % if ( $opt{enable_censustract} ) {
236 <TH ALIGN="right">Census tract</TD>
238 <INPUT TYPE="text" SIZE=15
239 ID="<% $pre %>enter_censustract"
240 NAME="<% $pre %>enter_censustract"
241 VALUE="<% $object->censustract |h %>">
242 <FONT SIZE="-1" COLOR="#333333"><% '(automatic)' %></FONT>
246 % if ( $opt{enable_district} and $conf->config('tax_district_method') ) {
248 <TH ALIGN="right">Tax district</TH>
250 <INPUT TYPE="text" SIZE=15
251 NAME="<%$pre%>district"
252 ID="<%$pre%>district"
253 VALUE="<% $object->district |h %>">
254 <FONT SIZE="-1" COLOR="#333333"><% '(automatic)' %></FONT>
258 <& hidden.html, field => $pre.'district', value => $object->get('district') &>
261 %# For address standardization:
262 %# keep a clean copy of the address so we know if we need
264 % foreach (qw(locationname address1 city state country zip latitude
265 % longitude censustract district addr_clean
267 <& hidden.html, field => 'old_'.$pre.$_, value => $object->get($_) &>
270 <& hidden.html, field => $pre.'cachenum', value => '' &>
271 <& hidden.html, field => $pre.'addr_clean', value => '' &>
273 <SCRIPT TYPE="text/javascript">
274 <&| /elements/onload.js &>
275 var clear_coords_ids = [
278 '<%$pre%>enter_censustract',
279 '<%$pre%>censustract',
282 function clear_coords() {
283 for (var i=0; i < clear_coords_ids.length; i++) {
284 var el = document.getElementById(clear_coords_ids[i]);
290 var clear_coords_on_change = [
293 <% $conf->exists('cust_main-no_city_in_address') ? '' : qq('${pre}city',) %>
298 for (var i=0; i < clear_coords_on_change.length; i++) {
299 var el = document.getElementById(clear_coords_on_change[i]);
300 if ( el.addEventListener ) {
301 el.addEventListener('change', clear_coords);
302 } else if ( el.attachEvent ) {
303 el.attachEvent('onchange', clear_coords);
306 function clear_censustract() {
307 // if the user manually edits the census tract, clear the 'hard' census
308 // tract field so that we can re-verify and present a confirmation popup
310 // get the ID of the hidden censustract field
311 var censustract_id = this.id.replace('enter_', '');
312 var el = document.getElementById(censustract_id);
317 var el = document.getElementById('<%$pre%>enter_censustract');
319 if ( el.addEventListener ) {
320 el.addEventListener('change', clear_censustract);
321 } else if ( el.attachEvent ) {
322 el.attachEvent('onchange', clear_censustract);
333 my $pre = $opt{'prefix'};
334 my $object = $opt{'object'};
335 my $onchange = $opt{'onchange'};
336 my $disabled = $opt{'disabled'};
338 my $r = $opt{'no_asterisks'} ? '' : qq!<font color="#ff0000">*</font> !;
340 my $conf = new FS::Conf;
341 my $countrydefault = $conf->config('countrydefault') || 'US';
342 my $statedefault = $conf->config('statedefault')
343 || ($countrydefault eq 'US' ? 'CA' : '');
344 my $label_prefix = $conf->config('cust_location-label_prefix');
346 $object ||= FS::cust_location->new({
347 'country' => $countrydefault,
348 'state' => $statedefault,
351 my $alt_err = ($opt{'alt_format'} && !$disabled) ? $object->alternize : '';
354 push @style, 'background-color: #dddddd' if $disabled;
356 my @address2_label_style = ();
357 push @address2_label_style, 'visibility:hidden'
359 || ! $conf->exists('cust_main-require_address2')
360 || ( !$pre && !$opt{'same_checked'} );
362 my @counties = counties( $object->get('state'),
363 $object->get('country'),
365 my @county_style = ();
366 push @county_style, 'display:none' # 'visibility:hidden'
367 unless scalar(@counties) > 1;
371 ? 'STYLE="'. join(';', @style). '"'
373 my $address2_label_style =
374 scalar(@address2_label_style)
375 ? 'STYLE="'. join(';', @address2_label_style). '"'
378 scalar(@county_style)
379 ? 'STYLE="'. join(';', @county_style). '"'
383 'city' => $object->get('city'),
384 'county' => $object->get('county'),
385 'state' => $object->get('state'),
386 'country' => $object->get('country'),
388 'onchange' => $onchange,
389 'disabled' => $disabled,
393 my $th = $opt{'no_bold'} ? 'TD' : 'TH';
395 my @location_kind_options = ( '', 'R', 'B' );
396 my $location_kind_labels = { '' => '', 'R' => 'Residential', 'B' => 'Business' };