5 include( '/elements/select-state.html',
7 country => $current_country,
8 state => $current_state,
11 prefix => $optional_unique_prefix,
12 onchange => $javascript,
14 disable_empty => 1, #defaults to 1, disable the empty option
15 empty_label => 'all', #label for empty option
16 disable_countyupdate => 0, #bool - disabled update of the select-state.html
17 style => [ 'attribute:value', 'another:value' ],
22 <SELECT NAME = "<% $pre %>state"
23 ID = "<% $pre %>state"
24 onChange = "<% $onchange %>"
25 <% $opt{'disabled'} %>
29 % unless ( $opt{'disable_empty'} ) {
30 <OPTION VALUE=""<% $opt{state} eq '' ? ' SELECTED' : '' %>><% $opt{empty_label} %>
33 % foreach my $state ( keys %states ) {
35 <OPTION VALUE="<% $state |h %>"<% $state eq $opt{'state'} ? ' SELECTED' : '' %>><% $states{$state} || '(n/a)' |h %>
45 foreach my $opt (qw( state country prefix onchange disabled empty_label )) {
46 $opt{$opt} = '' unless exists($opt{$opt}) && defined($opt{$opt});
49 $opt{'disable_empty'} = 1 unless exists($opt{'disable_empty'});
51 my $pre = $opt{'prefix'};
54 ( $opt{'disable_countyupdate'} ? '' : $pre.'state_changed(this); ' ).
59 scalar(@{$opt{style}})
60 ? 'STYLE="'. join(';', @{$opt{style}}). '"'
63 tie my %states, 'Tie::IxHash', states_hash( $opt{'country'} );