<SCRIPT TYPE="text/javascript">
+ function location_disable(what) {
+% for (@location_fields, 'city_select') {
+ what.form.<%$_%>.disabled = true;
+ var ftype = what.form.<%$_%>.tagName;
+ if( ftype == 'SELECT') changeSelect(what.form.<%$_%>, '');
+ else what.form.<%$_%>.value = '';
+ if( ftype != 'SELECT') what.form.<%$_%>.style.backgroundColor = '#dddddd';
+% }
+ }
+
+ function location_enable(what) {
+% for (grep { $_ ne 'location_number' } @location_fields, 'city_select') {
+ what.form.<%$_%>.disabled = false;
+ var ftype = what.form.<%$_%>.tagName;
+ if( ftype != 'SELECT') what.form.<%$_%>.style.backgroundColor = '#ffffff';
+ if( ftype == 'INPUT' ) what.form.<%$_%>.value = '';
+% }
+
+ if ( what.form.location_type.options[what.form.location_type.selectedIndex].value ) {
+ what.form.location_number.disabled = false;
+ what.form.location_number.style.backgroundColor = '#ffffff';
+ }
+ what.form.location_number.value = '';
+ }
+
function locationnum_changed(what) {
var locationnum = what.options[what.selectedIndex].value;
if ( locationnum == -2 ) {
-% for (@location_fields, 'city_select') {
- what.form.<%$_%>.disabled = true;
- var ftype = what.form.<%$_%>.tagName;
- if( ftype == 'SELECT') changeSelect(what.form.<%$_%>, '');
- else what.form.<%$_%>.value = '';
- what.form.<%$_%>.style.backgroundColor = '#dddddd';
-% }
- return;
+ location_disable(what);
+ return;
}
-
if ( locationnum == -1 ) {
-
-% for (@location_fields, 'city_select') {
- what.form.<%$_%>.disabled = false;
- what.form.<%$_%>.style.backgroundColor = '#ffffff';
- var ftype = what.form.<%$_%>.tagName;
- if( ftype == 'INPUT' ) what.form.<%$_%>.value = '';
-% }
+ location_enable(what);
changeSelect(what.form.country, <% $countrydefault |js_string %>);
''
)
);
+ return;
+ }
- } else {
-
- if ( locationnum == 0 ) {
-% if ( $cust_main ) {
- what.form.address1.value = <% $cust_main->get($prefix.'address1') |js_string %>;
- what.form.address2.value = <% $cust_main->get($prefix.'address2') |js_string %>;
- what.form.city.value = <% $cust_main->get($prefix.'city') |js_string %>;
- what.form.zip.value = <% $cust_main->get($prefix.'zip') |js_string %>;
+ if ( locationnum == 0 ) {
+% if ( $cust_main ) {
+ what.form.address1.value = <% $cust_main->get($prefix.'address1') |js_string %>;
+ what.form.address2.value = <% $cust_main->get($prefix.'address2') |js_string %>;
+ what.form.city.value = <% $cust_main->get($prefix.'city') |js_string %>;
+ what.form.zip.value = <% $cust_main->get($prefix.'zip') |js_string %>;
- changeSelect(what.form.country, <% $cust_main->get($prefix.'country') | js_string %> );
+ changeSelect(what.form.country, <% $cust_main->get($prefix.'country') | js_string %> );
- country_changed( what.form.country,
- fix_state_factory( <% $cust_main->get($prefix.'state') | js_string %>,
- <% $cust_main->get($prefix.'county') | js_string %>
- )
- );
-% }
+ country_changed( what.form.country,
+ fix_state_factory( <% $cust_main->get($prefix.'state') | js_string %>,
+ <% $cust_main->get($prefix.'county') | js_string %>
+ )
+ );
+% }
- } else {
- get_location( locationnum, update_location );
- }
+ } else {
+ get_location( locationnum, update_location );
+ }
-% if ( $editable ) {
- if ( locationnum == 0 ) {
-% }
+% if ( $editable ) {
+ if ( locationnum == 0 ) {
+% }
-%#sleep/wait until dropdowns are updated?
-% for (@location_fields, 'city_select') {
- what.form.<%$_%>.disabled = true;
- what.form.<%$_%>.style.backgroundColor = '#dddddd';
-% }
+% #sleep/wait until dropdowns are updated?
+ location_disable(what);
-% if ( $editable ) {
- } else {
+% if ( $editable ) {
+ } else {
-%#sleep/wait until dropdowns are updated?
-% for (@location_fields, 'city_select') {
- what.form.<%$_%>.disabled = false;
- what.form.<%$_%>.style.backgroundColor = '#ffffff';
-% }
+% #sleep/wait until dropdowns are updated?
+ location_enable(what);
- }
-% }
+ }
+% }
- }
}
function fix_state_factory (state, county) {
% if ( $opt{'is_optional'} ) {
<OPTION VALUE="-2" <% $locationnum == -2 ? 'SELECTED' : ''%>><% $opt{'optional_label'} || '(not required)' |h %>
% }
-% my @locations = $cust_main ? $cust_main->cust_location : ();
-% @locations = qsearch('cust_location',
-% { 'prospectnum' => $prospect_main->prospectnum } )
-% if $prospect_main;
-% push @locations, $cust_location
-% if !$cust_main && $cust_location && $cust_location->locationnum>0;
-% foreach my $loc ( sort $location_sort @locations ) {
-% next if $loc->disabled;
+%
+% foreach my $loc ( @cust_location ) {
<OPTION VALUE="<% $loc->locationnum %>"
<% $locationnum == $loc->locationnum ? 'SELECTED' : '' %>
><% $loc->line |h %>
'disabled' => $disabled,
'no_asterisks' => 1,
'no_bold' => $opt{'no_bold'},
- 'alt_format' => $opt{'alt_format'},
+ 'alt_format' => $opt{'alt_format'},
)
%>
my %opt = @_;
my $cgi = $opt{'cgi'};
-my $cust_pkg = $opt{'cust_pkg'};
+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 ( length($opt{'curr_value'}) ) {
- $locationnum = $opt{'curr_value'};
-} else {
+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
or lc($a->address2) cmp lc($b->address2)
};
-my $disabled = ( $locationnum < 0 || ($editable && $locationnum) )
- ? ''
- : 'DISABLED';
+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;
+
+my $disabled =
+ ( $locationnum < 0
+ || ( $editable && $locationnum )
+ || ( $prospect_main && !$opt{'is_optional'} && !@cust_location && $addnew )
+ )
+ ? ''
+ : 'DISABLED';
my $th = $opt{'no_bold'} ? 'TD' : 'TH';