<%doc> Example: <& /elements/select-state.html, #recommended country => $current_country, state => $current_state, #optional prefix => $optional_unique_prefix, onchange => $javascript, disabled => 0, #bool disable_empty => 1, #defaults to 1, disable the empty option empty_label => 'all', #label for empty option disable_countyupdate => 0, #bool - disabled update of the select-state.html style => [ 'attribute:value', 'another:value' ], &> <%init> my %opt = @_; foreach my $opt (qw( state country prefix onchange disabled empty_label svcpart )) { $opt{$opt} = '' unless exists($opt{$opt}) && defined($opt{$opt}); } $opt{'disable_empty'} = 1 unless exists($opt{'disable_empty'}); my $pre = $opt{'prefix'}; my $onchange = ( $opt{'disable_countyupdate'} ? '' : $pre.'state_changed(this); ' ). $opt{'onchange'}; $opt{'style'} ||= []; my $style = scalar(@{$opt{style}}) ? 'STYLE="'. join(';', @{$opt{style}}). '"' : ''; tie my %states, 'Tie::IxHash', states_hash( $opt{'country'} ); if ( $opt{'svcpart'} ) { my $part_svc = qsearchs('part_svc', { 'svcpart' => $opt{'svcpart'} } ); if ( $part_svc && $part_svc->exporttype eq 'internal_diddb' ) { my $sth = dbh->prepare( 'SELECT DISTINCT state FROM phone_avail WHERE svcnum IS NULL' ) or die dbh->errstr; $sth->execute or die $sth->errstr; my %avail_states = map { $_->[0] => 1 } @{ $sth->fetchall_arrayref }; if ( %avail_states ) { delete $states{$_} foreach grep ! $avail_states{$_}, keys %states; } } }