1 <% include('tr-td-label.html', @_ ) %>
5 <SELECT NAME = "<% $opt{field} %>"
7 previousValue = "<% $curr_value %>"
8 previousText = "<% $labels->{$curr_value} || $curr_value %>"
12 % if ( $opt{options} ) {
14 % foreach my $option ( @{ $opt{options} } ) { #just arrayref for now
16 <OPTION VALUE="<% $option %>"
17 <% $opt{curr_value} eq $option ? 'SELECTED' : '' %>
19 <% $labels->{$option} || $option %>
24 % } else { #deprecated weird value hashref used only by reason.html
26 % my $aref = $opt{'value'}->{'values'};
27 % my $vkey = $opt{'value'}->{'vcolumn'};
28 % my $ckey = $opt{'value'}->{'ccolumn'};
29 % foreach my $v (@$aref) {
31 <OPTION VALUE="<% $v->$vkey %>"
32 <% ($opt{curr_value} eq $v->$vkey) ? 'SELECTED' : '' %>
51 my $onchange = $opt{'onchange'}
52 ? 'onChange="'. $opt{'onchange'}. '(this)"'
55 my $labels = $opt{'option_labels'} || $opt{'labels'};
57 my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
59 my $curr_value = $opt{'curr_value'};