<& tr-td-label.html, @_ &> <% $colspan %>><% $value %> <& hidden.html, %opt &> <%init> my %opt = @_; my $style = $opt{'cell_style'} ? ' STYLE="'. $opt{'cell_style'}. '" ' : ' STYLE="color:#666666" '; my $colspan = $opt{'colspan'} ? ' COLSPAN="'. $opt{'colspan'}. '" ' : ''; my $value = $opt{'formatted_value'} || $opt{'curr_value'} || $opt{'value'}; $value = $opt{'prefix'} . $value if defined($opt{'prefix'}); unless ( $opt{'noescape'} ) { #compatibility with select-table and friends if ( $opt{'multiple'} ) { $value = [ split(/\s*,\s*/, $value) ] if !ref $value; $value = join('
', map {encode_entities($_)} @$value); } else { $value = encode_entities($value) } }