Search

% foreach my $col ( @{ $classmetadata->{columns} } ) { % next if $col eq "id"; <% $classmetadata->{colnames}->{ $col } %> <%perl> my $element = $classmetadata->{cgi}->{ $col }; if ( $element->{tag} eq "select" ) { $element = $element->unshift_content( HTML::Element->new( "option", value => " " ) ); } <% $element->as_XML %>
% }