diff options
author | ivan <ivan> | 2004-12-27 09:23:23 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-12-27 09:23:23 +0000 |
commit | e6b0e9237c4bbc31c820b06ece0029f75166506d (patch) | |
tree | 3c921c314431906b76411dacf70b093414a85fa2 /FS/FS/cust_main_county.pm | |
parent | 67aad2a379b6648524e2766e6c0e29534155dea3 (diff) |
UI: rework shipping address javascript, closes: Bug#1085
Diffstat (limited to 'FS/FS/cust_main_county.pm')
-rw-r--r-- | FS/FS/cust_main_county.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/FS/FS/cust_main_county.pm b/FS/FS/cust_main_county.pm index ef2793a..d96bd41 100644 --- a/FS/FS/cust_main_county.pm +++ b/FS/FS/cust_main_county.pm @@ -157,13 +157,13 @@ sub recurtax { =over 4 -=item regionselector [ COUNTY STATE COUNTRY [ PREFIX [ ONCHANGE ] ] ] +=item regionselector [ COUNTY STATE COUNTRY [ PREFIX [ ONCHANGE [ DISABLED ] ] ] ] =cut sub regionselector { my ( $selected_county, $selected_state, $selected_country, - $prefix, $onchange ) = @_; + $prefix, $onchange, $disabled ) = @_; $prefix = '' unless defined $prefix; @@ -238,7 +238,7 @@ END my $county_html = $script_html; if ( $countyflag ) { - $county_html .= qq!<SELECT NAME="${prefix}county" onChange="$onchange">!; + $county_html .= qq!<SELECT NAME="${prefix}county" onChange="$onchange" $disabled>!; $county_html .= '</SELECT>'; } else { $county_html .= @@ -246,7 +246,7 @@ END } my $state_html = qq!<SELECT NAME="${prefix}state" !. - qq!onChange="${prefix}state_changed(this); $onchange">!; + qq!onChange="${prefix}state_changed(this); $onchange" $disabled>!; foreach my $state ( sort keys %{ $cust_main_county{$selected_country} } ) { my $text = $state || '(n/a)'; my $selected = $state eq $selected_state ? 'SELECTED' : ''; @@ -257,7 +257,7 @@ END $state_html .= '</SELECT>'; my $country_html = qq!<SELECT NAME="${prefix}country" !. - qq!onChange="${prefix}country_changed(this); $onchange">!; + qq!onChange="${prefix}country_changed(this); $onchange" $disabled>!; my $countrydefault = $conf->config('countrydefault') || 'US'; foreach my $country ( sort { ($b eq $countrydefault) <=> ($a eq $countrydefault) or $a cmp $b } |