X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-cust_location.html;h=7a2d886d38f0f0de20b4f9ad925d9c41957ecc59;hb=bfd03694e81b9bc09b24d288adde0a038fc93288;hp=d7566262e9587a341f476b3fec48d2ead5d418c4;hpb=eddffe5c35507f37ed83c2529626c9be5f81a516;p=freeside.git
diff --git a/httemplate/elements/tr-select-cust_location.html b/httemplate/elements/tr-select-cust_location.html
index d7566262e..7a2d886d3 100644
--- a/httemplate/elements/tr-select-cust_location.html
+++ b/httemplate/elements/tr-select-cust_location.html
@@ -2,25 +2,23 @@
Example:
- include('/elements/tr-select-cust_location.html',
- 'cgi' => $cgi,
+ <& /elements/tr-select-cust_location.html,
+ 'cgi' => $cgi,
- 'cust_main' => $cust_main,
- #or
- 'prospect_main' => $prospect_main,
+ 'cust_main' => $cust_main,
+ #or
+ 'prospect_main' => $prospect_main,
- #optional
- 'empty_label' => '(default service address)',
- 'disable_empty' => 0, #1 to disable
- )
+ #optional
+ 'empty_label' => '(default service address)',
+ &>
%doc>
-<% include('/elements/xmlhttp.html',
- 'url' => $p.'misc/location.cgi',
- 'subs' => [ 'get_location' ],
- )
-%>
+<& /elements/xmlhttp.html,
+ 'url' => $p.'misc/location.cgi',
+ 'subs' => [ 'get_location' ],
+&>
- <<%$th%> ALIGN="right"><% $opt{'label'} || 'Service location' %><%$th%>>
+ <<%$th%> ALIGN="right"><% $opt{'label'} || emt('Service location') %><%$th%>>
-
+
+ <& /elements/select-cust_location.html,
+ %opt,
+ 'curr_value' => $locationnum,
+ 'cust_location' => \@cust_location,
+ 'onchange' => 'locationnum_changed(this);',
+ &>
+
|
-<% include('/elements/location.html',
- 'object' => $cust_location,
- #'onchange' ? probably not
- 'disabled' => $disabled,
- 'no_asterisks' => 1,
- 'no_bold' => $opt{'no_bold'},
- 'alt_format' => $opt{'alt_format'},
- )
-%>
+<& /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,
+&>
+
+
<%init>
@@ -203,8 +231,7 @@ my $cgi = $opt{'cgi'};
my $cust_pkg = $opt{'cust_pkg'};
my $cust_main = $opt{'cust_main'};
my $prospect_main = $opt{'prospect_main'};
-
-my $prefix = ($cust_main && length($cust_main->ship_last)) ? 'ship_' : '';
+die "cust_main or prospect_main required" unless $cust_main or $prospect_main;
my $locationnum = '';
if ( $cgi->param('error') ) {
@@ -216,9 +243,9 @@ if ( $cgi->param('error') ) {
} elsif ($prospect_main) {
my @cust_location = $prospect_main->cust_location;
$locationnum = $cust_location[0]->locationnum if scalar(@cust_location)==1;
- } else { #?
+ } else { #$cust_main
$cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum";
- $locationnum = $1;
+ $locationnum = $1 || $cust_main->ship_locationnum;
}
}
@@ -227,36 +254,42 @@ if ( $cgi->param('error') ) {
my $editable = $cust_main ? 0 : 1; #could use explicit control
my $addnew = $cust_main ? 1 : ( $locationnum>0 ? 0 : 1 );
-my @location_fields = qw( address1 address2 city county state zip country );
+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;
+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 ) {
+ 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->get($prefix.$_) ) foreach @location_fields;
+ $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 = ();
+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
@@ -265,16 +298,27 @@ push @cust_location, $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{'disable_empty'} )
+ || ( $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';
%init>