[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.5, Tue Apr 10 06:11:01 2007 UTC revision 1.6, Mon Jul 16 20:04:51 2007 UTC
# Line 4  Line 4 
4    
5      use strict;      use strict;
6      use Tracer;      use Tracer;
     use SearchHelper;  
7      use CGI;      use CGI;
8      use HTML;      use HTML;
9      use Sprout;      use Sprout;
10      use FeatureData;      use RHFeatures;
11      use FeatureQuery;      use base 'SearchHelper';
   
     our @ISA = qw(SearchHelper);  
12    
13  =head1 Subsystem Feature Search Helper  =head1 Subsystem Feature Search Helper
14    
# Line 67  Line 64 
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, $cgi->Tr($cgi->th("Search Words"),      push @rows, RHFeatures::WordSearchRow($self);
                          $cgi->td({ colspan => 2 },  
                                   $cgi->textfield(-name => 'keywords',  
                                                   -value => $expressionString,  
                                                   -size => 60)));  
68      # Add the special options.      # Add the special options.
69      push @rows, FeatureQuery::SpecialOptions($self);      push @rows, RHFeatures::FeatureFilterFormRows($self, 'options');
70      # Finish it off with the submit row.      # Finish it off with the submit row.
71      push @rows, $self->SubmitRow();      push @rows, $self->SubmitRow();
72      # Convert the form rows into a table.      # Convert the form rows into a table.
# Line 140  Line 133 
133                  $self->PrintLine("Standard search query submitted.<br />");                  $self->PrintLine("Standard search query submitted.<br />");
134                  $query = $sprout->Get(@majorParms);                  $query = $sprout->Get(@majorParms);
135              }              }
136                # Get the result helper for a feature search.
137                my $rhelp = RHFeatures->new($self);
138                # Compute the default columns. This is a very simple search which
139                # has no extra columns.
140                $self->DefaultColumns($rhelp);
141              # Initialize the session file.              # Initialize the session file.
142              $self->OpenSession();              $self->OpenSession($rhelp);
143              # Initialize the result counter.              # Initialize the result counter.
144              $retVal = 0;              $retVal = 0;
145              # Loop through the selected features.              # Loop through the selected features.

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3