<%doc>
Example:
include( '/elements/location.html',
'object' => $cust_main, # or $cust_location
'prefix' => $pre, #only for cust_main objects
'onchange' => $javascript,
'disabled' => $disabled,
'same_checked' => $same_checked,
'geocode' => $geocode, #passed through
'censustract' => $censustract, #passed through
'no_asterisks' => 0, #set true to disable the red asterisks next
#to required fields
'address1_label' => 'Address', #label for address
)
% if ( $opt{'alt_format'} ) {
<<%$th%> ALIGN="right">Location kind>
|
<% include('/elements/select.html',
'cgi' => $cgi,
'field' => 'location_kind',
'id' => 'location_kind',
'disabled' => $disabled,
#'style' => \@style,
'options' => \@location_kind_options,
'labels' => $location_kind_labels,
'curr_value' => scalar($cgi->param('location_kind'))
|| $object->get($pre.'location_kind'),
)
%>
|
% }
<<%$th%> ALIGN="right"><%$r%><% $opt{'address1_label'} || emt('Address') %>>
|
<% $style %>
>
|
% if ( ! $opt{'alt_format'} ) { #regular format
| >* >Unit # |
<% $style %>
>
|
% } else { # alternate format
<<%$th%> ALIGN="right">Unit type and #>
|
% my $location_type = scalar($cgi->param('location_type'))
% || $object->get($pre.'location_type');
% #my $location_number = scalar($cgi->param('location_number'))
% # || $object->get($pre.'location_number');
%
% if ( $object->get($pre.'address2') && ! $location_type ) {
% }
%
% if ( 1 ) { #ikano, switch on via config
% tie my %location_types, 'Tie::IxHash',
% FS::part_export::ikano->location_types;
<% include('/elements/select.html',
'cgi' => $cgi,
'field' => 'location_type',
'id' => 'location_type',
'disabled' => $disabled,
#'style' => \@style,
'options' => [ keys %location_types ],
'labels' => \%location_types,
'curr_value' => $location_type,
'onchange' => 'location_type_changed',
)
%>
% } else {
<% $style %>
>
% }
<% $style %>
>
% #XXX i don't work so well when the dropdown is changed :/ i probably need to be triggered by "default service address"
% $alt_err =~ s/(ship_)?address2/''.encode_entities($object->get($1.'address2')).'<\/B>'/e;
<% $alt_err %>
|
% }
<<%$th%> ALIGN="right"><%$r%><% mt('City') |h %>>
| <% include('/elements/city.html', %select_hash) %> |
<<%$th%> ALIGN="right" WIDTH="1" ID="<%$pre%>countylabel" <%$county_style%>><%$r%>County>
<% include('/elements/select-county.html', %select_hash ) %> |
<<%$th%> ALIGN="right" WIDTH="1"><%$r%><% mt('State') |h %>>
<% include('/elements/select-state.html', %select_hash ) %>
|
<<%$th%> ALIGN="right" WIDTH="1"><%$r%><% mt('Zip') |h %>>
<% $style %>
>
|
<<%$th%> ALIGN="right"><%$r%><% mt('Country') |h %>>
| <% include('/elements/select-country.html', %select_hash ) %> |
% if ( !$pre ) {
% } else {
% if ( $pre eq 'ship_' && $conf->exists('cust_main-require_censustract') ) {
<<%$th%> ALIGN="right">Census tract
(automatic)>
|
% } else {
% }
% }
<%init>
my %opt = @_;
my $pre = $opt{'prefix'};
my $object = $opt{'object'};
my $onchange = $opt{'onchange'};
my $disabled = $opt{'disabled'};
my $conf = new FS::Conf;
my $r = $opt{'no_asterisks'} ? '' : qq!* !;
#false laziness with ship state
my $countrydefault = $conf->config('countrydefault') || 'US';
$object->set($pre.'country', $countrydefault )
unless $object->get($pre.'country');
my $statedefault = $conf->config('statedefault')
|| ($countrydefault eq 'US' ? 'CA' : '');
$object->set($pre.'state', $statedefault )
unless $object->get($pre.'state')
|| $object->get($pre.'country') ne $countrydefault;
my $alt_err = ($opt{'alt_format'} && !$disabled) ? $object->alternize : '';
my @style = ();
push @style, 'background-color: #dddddd' if $disabled;
my @address2_label_style = ();
push @address2_label_style, 'visibility:hidden'
if $disabled
|| ! $conf->exists('cust_main-require_address2')
|| ( !$pre && !$opt{'same_checked'} );
my @counties = counties( $object->get($pre.'state'),
$object->get($pre.'country'),
);
my @county_style = ();
push @county_style, 'display:none' # 'visibility:hidden'
unless scalar(@counties) > 1;
my $style =
scalar(@style)
? 'STYLE="'. join(';', @style). '"'
: '';
my $address2_label_style =
scalar(@address2_label_style)
? 'STYLE="'. join(';', @address2_label_style). '"'
: '';
my $county_style =
scalar(@county_style)
? 'STYLE="'. join(';', @county_style). '"'
: '';
my %select_hash = (
'city' => $object->get($pre.'city'),
'county' => $object->get($pre.'county'),
'state' => $object->get($pre.'state'),
'country' => $object->get($pre.'country'),
'prefix' => $pre,
'onchange' => $onchange,
'disabled' => $disabled,
#'style' => \@style,
);
my $th = $opt{'no_bold'} ? 'TD' : 'TH';
my @location_kind_options = ( '', 'R', 'B' );
my $location_kind_labels = { '' => '', 'R' => 'Residential', 'B' => 'Business' };