43 |
|
|
44 |
=head3 Form |
=head3 Form |
45 |
|
|
46 |
C<< my $html = $shelp->Include(); >> |
C<< my $html = $shelp->Form(); >> |
47 |
|
|
48 |
Generate the HTML for a form to request a new search. |
Generate the HTML for a form to request a new search. |
49 |
|
|
56 |
my $cgi = $self->Q(); |
my $cgi = $self->Q(); |
57 |
my $sprout = $self->DB(); |
my $sprout = $self->DB(); |
58 |
# Start the form. |
# Start the form. |
59 |
my $retVal = $self->FormStart("Property Search"); |
my $retVal = $self->FormStart("Attribute Search"); |
60 |
my @rows = (); |
my @rows = (); |
61 |
# First, we generate the genome menu. |
# First, we generate the genome menu. |
62 |
my $genomeMenu = $self->NmpdrGenomeMenu('genome', 0, [$cgi->param('genome')]); |
my $genomeMenu = $self->NmpdrGenomeMenu('genome', 0, [$cgi->param('genome')]); |