<% include('tr-td-label.html', @_ ) %> <% $style %>> > % if ( $opt{options} ) { % % foreach my $option ( @{ $opt{options} } ) { #just arrayref for now > <% $labels->{$option} || $option %> % } % % } else { #deprecated weird value hashref used only by reason.html % % my $aref = $opt{'value'}->{'values'}; % my $vkey = $opt{'value'}->{'vcolumn'}; % my $ckey = $opt{'value'}->{'ccolumn'}; % foreach my $v (@$aref) { $vkey) ? 'SELECTED' : '' %> > <% $v->$ckey %> % } % % } <%init> my %opt = @_; my $onchange = $opt{'onchange'} ? 'onChange="'. $opt{'onchange'}. '(this)"' : ''; my $labels = $opt{'option_labels'} || $opt{'labels'}; my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : ''; my $curr_value = $opt{'curr_value'}; my $colspan = $opt{'colspan'} ? 'COLSPAN="'.$opt{'colspan'}.'"' : '';