[Bio] / Sprout / SHSubSearch.pm Repository:
ViewVC logotype

Diff of /Sprout/SHSubSearch.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7, Mon Nov 5 21:31:01 2007 UTC revision 1.10, Mon Jan 19 21:56:19 2009 UTC
# Line 4  Line 4 
4    
5      use strict;      use strict;
6      use Tracer;      use Tracer;
7      use CGI;      use CGI qw(-nosticky);
8      use HTML;      use HTML;
9      use Sprout;      use Sprout;
10      use RHFeatures;      use RHFeatures;
# Line 36  Line 36 
36    
37  =head3 Form  =head3 Form
38    
39  C<< my $html = $shelp->Form(); >>      my $html = $shelp->Form();
40    
41  Generate the HTML for a form to request a new search.  Generate the HTML for a form to request a new search.
42    
# Line 49  Line 49 
49      my $cgi = $self->Q();      my $cgi = $self->Q();
50      my $sprout = $self->DB();      my $sprout = $self->DB();
51      # Start the form.      # Start the form.
52      my $retVal = $self->FormStart("Open Subsystem OR Search for Genes by Subsystem or Class");      my $retVal = $self->FormStart("Search for Genes by Subsystem or Class");
53      # Create a subsystem tree.      # Create a subsystem tree.
54      my $tree = SearchHelper::SubsystemTree($sprout, radio => 1, links => 1);      my $tree = SearchHelper::SubsystemTree($sprout, radio => 1, links => 1);
55      # Build a form field out of it.      # Build a form field out of it.
# Line 60  Line 60 
60      # We'll accumulate the form table in here.      # We'll accumulate the form table in here.
61      my @rows = ();      my @rows = ();
62      # Start with the subsystem tree.      # Start with the subsystem tree.
63      push @rows, $cgi->Tr($cgi->th({ colspan => 3, align => "center" }, "Subsystem Tree")),      push @rows, CGI::Tr(CGI::th({ colspan => 3, align => "center" }, "Subsystem Tree")),
64                  $cgi->Tr($cgi->td({ colspan => 3 }, $treeField));                  CGI::Tr(CGI::td({ colspan => 3 }, $treeField));
65      # Put in the keyword search box.      # Put in the keyword search box.
66      my $expressionString = $cgi->param('keywords') || "";      my $expressionString = $cgi->param('keywords') || "";
67      push @rows, RHFeatures::WordSearchRow($self);      push @rows, RHFeatures::WordSearchRow($self);
# Line 79  Line 79 
79    
80  =head3 Find  =head3 Find
81    
82  C<< my $resultCount = $shelp->Find(); >>      my $resultCount = $shelp->Find();
83    
84  Conduct a search based on the current CGI query parameters. The search results will  Conduct a search based on the current CGI query parameters. The search results will
85  be written to the session cache file and the number of results will be  be written to the session cache file and the number of results will be
# Line 159  Line 159 
159    
160  =head3 Description  =head3 Description
161    
162  C<< my $htmlText = $shelp->Description(); >>      my $htmlText = $shelp->Description();
163    
164  Return a description of this search. The description is used for the table of contents  Return a description of this search. The description is used for the table of contents
165  on the main search tools page. It may contain HTML, but it should be character-level,  on the main search tools page. It may contain HTML, but it should be character-level,
# Line 171  Line 171 
171      # Get the parameters.      # Get the parameters.
172      my ($self) = @_;      my ($self) = @_;
173      # Return the result.      # Return the result.
174      return "Search for genes by keyword in a specified subsystem or subsystem class.";      return "Search for %FIG{genes}% by keyword in a specified %FIG{subsystem}% or subsystem class.";
175  }  }
176    
177  1;  1;

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3