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 <TD 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 <TD 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 <TD ALIGN="right"><% mt('Latitude') |h %></TD>
208 NAME = "<%$pre%>latitude"
209 ID = "<%$pre%>latitude"
210 VALUE = "<% $object->get('latitude') |h %>"
214 <% mt('Longitude') |h %>
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 <TD 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 %>">
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(address1 city state country zip latitude
265 % longitude censustract district addr_clean) ) {
266 <& hidden.html, field => 'old_'.$pre.$_, value => $object->get($_) &>
269 <& hidden.html, field => $pre.'cachenum', value => '' &>
270 <& hidden.html, field => $pre.'addr_clean', value => '' &>
272 <SCRIPT TYPE="text/javascript">
273 <&| /elements/onload.js &>
274 var clear_coords_ids = [
277 '<%$pre%>enter_censustract',
278 '<%$pre%>censustract',
281 function clear_coords() {
282 for (var i=0; i < clear_coords_ids.length; i++) {
283 var el = document.getElementById(clear_coords_ids[i]);
289 var clear_coords_on_change = [
292 <% $conf->exists('cust_main-no_city_in_address') ? '' : qq('${pre}city',) %>
297 for (var i=0; i < clear_coords_on_change.length; i++) {
298 var el = document.getElementById(clear_coords_on_change[i]);
299 if ( el.addEventListener ) {
300 el.addEventListener('change', clear_coords);
301 } else if ( el.attachEvent ) {
302 el.attachEvent('onchange', clear_coords);
305 function clear_censustract() {
306 // if the user manually edits the census tract, clear the 'hard' census
307 // tract field so that we can re-verify and present a confirmation popup
309 // get the ID of the hidden censustract field
310 var censustract_id = this.id.replace('enter_', '');
311 var el = document.getElementById(censustract_id);
316 var el = document.getElementById('<%$pre%>enter_censustract');
318 if ( el.addEventListener ) {
319 el.addEventListener('change', clear_censustract);
320 } else if ( el.attachEvent ) {
321 el.attachEvent('onchange', clear_censustract);
332 my $pre = $opt{'prefix'};
333 my $object = $opt{'object'};
334 my $onchange = $opt{'onchange'};
335 my $disabled = $opt{'disabled'};
337 my $r = $opt{'no_asterisks'} ? '' : qq!<font color="#ff0000">*</font> !;
339 my $conf = new FS::Conf;
340 my $countrydefault = $conf->config('countrydefault') || 'US';
341 my $statedefault = $conf->config('statedefault')
342 || ($countrydefault eq 'US' ? 'CA' : '');
343 my $label_prefix = $conf->config('cust_location-label_prefix');
345 $object ||= FS::cust_location->new({
346 'country' => $countrydefault,
347 'state' => $statedefault,
350 my $alt_err = ($opt{'alt_format'} && !$disabled) ? $object->alternize : '';
353 push @style, 'background-color: #dddddd' if $disabled;
355 my @address2_label_style = ();
356 push @address2_label_style, 'visibility:hidden'
358 || ! $conf->exists('cust_main-require_address2')
359 || ( !$pre && !$opt{'same_checked'} );
361 my @counties = counties( $object->get('state'),
362 $object->get('country'),
364 my @county_style = ();
365 push @county_style, 'display:none' # 'visibility:hidden'
366 unless scalar(@counties) > 1;
370 ? 'STYLE="'. join(';', @style). '"'
372 my $address2_label_style =
373 scalar(@address2_label_style)
374 ? 'STYLE="'. join(';', @address2_label_style). '"'
377 scalar(@county_style)
378 ? 'STYLE="'. join(';', @county_style). '"'
382 'city' => $object->get('city'),
383 'county' => $object->get('county'),
384 'state' => $object->get('state'),
385 'country' => $object->get('country'),
387 'onchange' => $onchange,
388 'disabled' => $disabled,
392 my $th = $opt{'no_bold'} ? 'TD' : 'TH';
394 my @location_kind_options = ( '', 'R', 'B' );
395 my $location_kind_labels = { '' => '', 'R' => 'Residential', 'B' => 'Business' };