[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.8, Thu Dec 6 14:58:03 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 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 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.8  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3