<% include('tr-td-label.html', @_) %> > <% $opt{'post_text'} || '' %> <%once> tie my %freq, 'Tie::IxHash', #'y' => 'years', 'm' => 'months', 'w' => 'weeks', 'd' => 'days', 'h' => 'hours', ; <%init> my %opt = @_; my $onchange = $opt{'onchange'} ? 'onChange="'. $opt{'onchange'}. '(this)"' : ''; my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : ''; my $curr_value = $opt{'curr_value'} || $opt{'value'}; my $units = 'm'; if ( $curr_value =~ /^(\d*)([mwdh])$/i ) { $curr_value = $1; $units = lc($2); }