summaryrefslogtreecommitdiff
path: root/httemplate/elements/select-state.html
blob: 3fb5597345659afea81980fade3eaa7a4a0b0642 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
<%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' ],
  &>

</%doc>

<SELECT NAME     = "<% $pre %>state"
        ID       = "<% $pre %>state"
        onChange = "<% $onchange %>"
        <% $opt{'disabled'} %>
        <% $style %>
>

% unless ( $opt{'disable_empty'} ) {
  <OPTION VALUE=""<% $opt{state} eq '' ? ' SELECTED' : '' %>><% $opt{empty_label} %>
% }

% foreach my $state ( keys %states ) { 

  <OPTION VALUE="<% $state |h %>"<% $state eq $opt{'state'} ? ' SELECTED' : '' %>><% $states{$state} || '(n/a)' |h %>

% } 


</SELECT>

<%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;
    }

  }
}

</%init>