—

              
<%doc>
HideShow 4 lines of Pod
=head1 search_form
=cut
</%doc>
<div id="search">
<form method="get" action="<% $base %>/<% $classmetadata->{table} %>/search/">
<fieldset>
<legend>Search</legend>
% foreach my $col ( @{ $classmetadata->{columns} } ) {
% next if $col eq "id";
<label><span class="field"><% $classmetadata->{colnames}->{ $col } %></span></label>
<%perl>
    my $element = $classmetadata->{cgi}->{ $col };
    if ( $element->tag eq "select" )
    {
        $element = $element->unshift_content(
                            HTML::Element->new( "option", value => '' ) );
    }
</%perl>
<% $element->as_XML %><br clear="left" />
% }
<input type="submit" name="search" value="search" />
</fieldset>
</form>
</div>
<%once>
    use HTML::Element;
</%once>