<%doc> Example: <& /elements/tr-select-cust_location.html, 'cgi' => $cgi, 'cust_main' => $cust_main, #or 'prospect_main' => $prospect_main, #optional 'empty_label' => '(default service address)', &> <& /elements/xmlhttp.html, 'url' => $p.'misc/location.cgi', 'subs' => [ 'get_location' ], &> <<%$th%> ALIGN="right"><% $opt{'label'} || emt('Service location') %>> <& /elements/select-cust_location.html, %opt, 'curr_value' => $locationnum, 'cust_location' => \@cust_location, 'onchange' => 'locationnum_changed(this);', &> <& /elements/location.html, 'object' => $cust_location, #'onchange' ? probably not 'disabled' => $disabled, 'no_asterisks' => 1, 'no_bold' => $opt{'no_bold'}, 'alt_format' => $opt{'alt_format'}, 'enable_coords' => 1, 'enable_censustract' => 1, 'enable_district' => $conf->exists('tax_district_method') ? 1 : 0, &> <%init> my $conf = new FS::Conf; my $countrydefault = $conf->config('countrydefault') || 'US'; my $statedefault = $conf->config('statedefault') || ($countrydefault eq 'US' ? 'CA' : ''); my %opt = @_; my $cgi = $opt{'cgi'}; my $cust_pkg = $opt{'cust_pkg'}; my $cust_main = $opt{'cust_main'}; my $prospect_main = $opt{'prospect_main'}; die "cust_main or prospect_main required" unless $cust_main or $prospect_main; my $locationnum = ''; if ( $cgi->param('error') ) { $cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum"; $locationnum = $1; } else { if ( length($opt{'curr_value'}) ) { $locationnum = $opt{'curr_value'}; } elsif ($prospect_main) { my @cust_location = $prospect_main->cust_location; $locationnum = $cust_location[0]->locationnum if scalar(@cust_location)==1; } else { #$cust_main $cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum"; $locationnum = $1 || $cust_main->ship_locationnum; } } #probably could use explicit controls # (cust_main locations not editable for tax reasons) my $editable = $cust_main ? 0 : 1; #could use explicit control my $addnew = $cust_main ? 1 : ( $locationnum>0 ? 0 : 1 ); my @location_fields = FS::cust_main->location_fields; if ( $opt{'alt_format'} ) { push @location_fields, qw( location_type location_number location_kind ); } my $cust_location; #the one that shows by default in the location edit space if ( $locationnum && $locationnum > 0 ) { $cust_location = qsearchs('cust_location', { 'locationnum' => $locationnum } ) or die "unknown locationnum"; } else { $cust_location = new FS::cust_location; if ( $locationnum == -1 || $locationnum == -3 ) { $cust_location->$_( $cgi->param($_) ) foreach @location_fields; } elsif ( $cust_pkg && $cust_pkg->locationnum ) { my $pkg_location = $cust_pkg->cust_location; $cust_location->$_( $pkg_location->$_ ) foreach @location_fields; $opt{'empty_label'} ||= 'package address: '.$pkg_location->line; } elsif ( $cust_main ) { $cust_location = $cust_main->ship_location; #I think } } $cust_location->coord_auto('Y'); my $location_sort = sub { #enabled w/label_prefix _location # $a->locationname cmp $b->locationname # or $a->country cmp $b->country or lc($a->state) cmp lc($b->state) or lc($a->city) cmp lc($b->city) or lc($a->county) cmp lc($b->county) or lc($a->address1) cmp lc($b->address1) or lc($a->address2) cmp lc($b->address2) }; my @cust_location; push @cust_location, $cust_main->cust_location if $cust_main; push @cust_location, $prospect_main->cust_location if $prospect_main; push @cust_location, $cust_location if !$cust_main && $cust_location && $cust_location->locationnum > 0 && ! grep { $_->locationnum == $cust_location->locationnum } @cust_location; @cust_location = sort $location_sort grep !$_->disabled, @cust_location; $cust_location = $cust_location[0] if $prospect_main && !$opt{'is_optional'} && @cust_location; my $disabled = ( $locationnum < 0 || ( $editable && $locationnum ) || ( $prospect_main && !$opt{'is_optional'} && !@cust_location && $addnew ) ) ? '' : 'DISABLED'; if ( $cust_main && $opt{'alt_format'} && ! @cust_location ) { $cust_location->locationnum(-3); $cust_location->alternize; push @cust_location, $cust_location; } my $th = $opt{'no_bold'} ? 'TD' : 'TH';