| <% $classmetadata->{ colnames }->{ $col } %> |
\
<%perl>
my $element = $classmetadata->{ cgi }->{ $col };
if ( $element->{ tag } eq 'select' ) {
$element = $element->unshift_content( HTML::Element->new( 'option',
value => ' ',
) );
}
chomp( my $h = $element->as_XML );
<% $h %> |
% }