X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-cust_location.html;h=a876f62253908a7a4456a6d03c80a3089e6f7791;hb=3d2e1d9b5d1883f768f5a90e0dfaae7cc9a41367;hp=5b023f165668e145880d963e1e2fbd14dcd2b4da;hpb=705f7d564546e7211844773f3566a89f0ae87a2c;p=freeside.git
diff --git a/httemplate/elements/tr-select-cust_location.html b/httemplate/elements/tr-select-cust_location.html
index 5b023f165..a876f6225 100644
--- a/httemplate/elements/tr-select-cust_location.html
+++ b/httemplate/elements/tr-select-cust_location.html
@@ -4,7 +4,14 @@ Example:
include('/elements/tr-select-cust_location.html',
'cgi' => $cgi,
- 'cust_main' => $cust_main,
+
+ 'cust_main' => $cust_main,
+ #or
+ 'prospect_main' => $prospect_main,
+
+ #optional
+ 'empty_label' => '(default service address)',
+ 'disable_empty' => 0, #1 to disable
)
%doc>
@@ -17,19 +24,49 @@ Example:
- Service location |
+ <<%$th%> ALIGN="right"><% $opt{'label'} || emt('Service location') %><%$th%>>
- |
@@ -137,16 +227,13 @@ Example:
<% include('/elements/location.html',
'object' => $cust_location,
#'onchange' ? probably not
- 'disabled' => ( $locationnum == -1 ? '' : 'DISABLED' ),
+ 'disabled' => $disabled,
'no_asterisks' => 1,
+ 'no_bold' => $opt{'no_bold'},
+ 'alt_format' => $opt{'alt_format'},
)
%>
-<%once>
-
-my @location_fields = qw( address1 address2 city county state zip country );
-
-%once>
<%init>
my $conf = new FS::Conf;
@@ -155,22 +242,93 @@ my $statedefault = $conf->config('statedefault')
|| ($countrydefault eq 'US' ? 'CA' : '');
my %opt = @_;
-my $cgi = $opt{'cgi'};
-my $cust_main = $opt{'cust_main'};
+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_' : '';
+
+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 { #?
+ $cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum";
+ $locationnum = $1;
+ }
+}
+
+#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 = qw( address1 address2 city county state zip country );
+if ( $opt{'alt_format'} ) {
+ push @location_fields, qw( location_type location_number location_kind );
+}
-$cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum";
-my $locationnum = $1;
my $cust_location;
-if ( $locationnum && $locationnum != -1 ) {
+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;
- } else {
- $cust_location->$_( $cust_main->$_() ) 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;
}
}
+my $location_sort = sub {
+ $a->country cmp $b->country
+ or lc($a->city) cmp lc($b->city)
+ 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{'disable_empty'} )
+ && !$opt{'is_optional'}
+ && @cust_location;
+
+my $disabled =
+ ( $locationnum < 0
+ || ( $editable && $locationnum )
+ || ( ( $prospect_main || $opt{'disable_empty'} )
+ && !$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>