5 include( '/elements/location.html',
6 'object' => $cust_main, # or $cust_location
7 'prefix' => $pre, #only for cust_main objects
8 'onchange' => $javascript,
9 'disabled' => $disabled,
10 'same_checked' => $same_checked,
11 'geocode' => $geocode, #passed through
12 'censustract' => $censustract, #passed through
13 'no_asterisks' => 0, #set true to disable the red asterisks next
15 'address1_label' => 'Address', #label for address
21 <<%$th%> ALIGN="right"><%$r%><% $opt{'address1_label'} || 'Address' %></<%$th%>>
24 NAME = "<%$pre%>address1"
25 ID = "<%$pre%>address1"
26 VALUE = "<% $object->get($pre.'address1') |h %>"
28 onChange = "<% $onchange %>"
35 <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>
38 NAME = "<%$pre%>address2"
39 ID = "<%$pre%>address2"
40 VALUE = "<% $object->get($pre.'address2') |h %>"
42 onChange = "<% $onchange %>"
50 % if ( $opt{'alt_format'} ) {
52 <<%$th%> ALIGN="right">Location Type</<%$th%>>
53 <TD><INPUT TYPE="text"
56 VALUE="<% $object->get('location_type') |h %>"
63 <<%$th%> ALIGN="right">Number</<%$th%>>
64 <TD><INPUT TYPE="text"
65 NAME="location_number"
67 VALUE="<% $object->get('location_number') |h %>"
73 <<%$th%> ALIGN="right">Kind</<%$th%>>
75 <% include('/elements/select.html',
77 'field' => 'location_kind',
78 'disabled' => $disabled,
80 'options' => \@location_kind_options,
81 'labels' => $location_kind_labels,
82 'curr_value' => $cgi->param('location_kind'),
90 <<%$th%> ALIGN="right"><%$r%>City</<%$th%>>
91 <TD WIDTH="1"><% include('/elements/city.html', %select_hash) %></TD>
92 <<%$th%> ALIGN="right" ID="<%$pre%>countylabel" <%$county_style%>><%$r%>County</<%$th%>>
93 <TD><% include('/elements/select-county.html', %select_hash ) %></TD>
94 <<%$th%> ALIGN="right" WIDTH="1"><%$r%>State</<%$th%>>
96 <% include('/elements/select-state.html', %select_hash ) %>
98 <<%$th%>><%$r%>Zip</<%$th%>>
103 VALUE = "<% $object->get($pre.'zip') |h %>"
105 onChange = "<% $onchange %>"
113 <<%$th%> ALIGN="right"><%$r%>Country</<%$th%>>
114 <TD COLSPAN=6><% include('/elements/select-country.html', %select_hash ) %></TD>
118 <INPUT TYPE="hidden" NAME="geocode" VALUE="<% $opt{geocode} %>">
120 % if ( $pre eq 'ship_' && $conf->exists('cust_main-require_censustract') ) {
121 <TR><<%$th%> ALIGN="right">Census tract<BR>(automatic)</<%$th%>>
123 <INPUT TYPE="text" NAME="censustract" VALUE="<% $opt{censustract} %>">
127 <INPUT TYPE="hidden" NAME="censustract" VALUE="<% $opt{censustract} %>">
135 my $pre = $opt{'prefix'};
136 my $object = $opt{'object'};
137 my $onchange = $opt{'onchange'};
138 my $disabled = $opt{'disabled'};
140 my $conf = new FS::Conf;
142 my $r = $opt{'no_asterisks'} ? '' : qq!<font color="#ff0000">*</font> !;
144 #false laziness with ship state
145 my $countrydefault = $conf->config('countrydefault') || 'US';
146 $object->set($pre.'country', $countrydefault )
147 unless $object->get($pre.'country');
149 my $statedefault = $conf->config('statedefault')
150 || ($countrydefault eq 'US' ? 'CA' : '');
151 $object->set($pre.'state', $statedefault )
152 unless $object->get($pre.'state')
153 || $object->get($pre.'country') ne $countrydefault;
156 push @style, 'background-color: #dddddd' if $disabled;
158 my @address2_label_style = ();
159 push @address2_label_style, 'visibility:hidden'
161 || ! $conf->exists('cust_main-require_address2')
162 || ( !$pre && !$opt{'same_checked'} );
164 my @counties = counties( $object->get($pre.'state'),
165 $object->get($pre.'country'),
167 my @county_style = ();
168 push @county_style, 'display:none' # 'visibility:hidden'
169 unless scalar(@counties) > 1;
173 ? 'STYLE="'. join(';', @style). '"'
175 my $address2_label_style =
176 scalar(@address2_label_style)
177 ? 'STYLE="'. join(';', @address2_label_style). '"'
180 scalar(@county_style)
181 ? 'STYLE="'. join(';', @county_style). '"'
185 'city' => $object->get($pre.'city'),
186 'county' => $object->get($pre.'county'),
187 'state' => $object->get($pre.'state'),
188 'country' => $object->get($pre.'country'),
190 'onchange' => $onchange,
191 'disabled' => $disabled,
195 my $th = $opt{'no_bold'} ? 'TD' : 'TH';
197 my @location_kind_options = ( '', 'R', 'B' );
198 my $location_kind_labels = { '' => '', 'R' => 'Residential', 'B' => 'Business' };