<% include('tr-td-label.html', @_ ) %> > <% $cols %> <% $onchange %> ><% $curr_value |h %> <%init> my %opt = @_; my $onchange = $opt{'onchange'} ? 'onChange="'. $opt{'onchange'}. '(this)"' : ''; my $rows = $opt{'rows'} ? 'ROWS="'.$opt{'rows'}.'"' : ''; my $cols = $opt{'cols'} ? 'COLS="'.$opt{'cols'}.'"' : ''; my $cell_style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : ''; my $curr_value = $opt{'curr_value'};