% include('tr-td-label.html', @_ ) %>
  
>
    <% include('htmlarea.html', @_ ) %><%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'};
%init> |