[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.3, Sat Dec 2 09:46:01 2006 UTC revision 1.5, Tue Apr 10 06:11:01 2007 UTC
# Line 65  Line 65 
65      # Start with the subsystem tree.      # Start with the subsystem tree.
66      push @rows, $cgi->Tr($cgi->th({ colspan => 3, align => "center" }, "Subsystem Tree")),      push @rows, $cgi->Tr($cgi->th({ colspan => 3, align => "center" }, "Subsystem Tree")),
67                  $cgi->Tr($cgi->td({ colspan => 3 }, $treeField));                  $cgi->Tr($cgi->td({ colspan => 3 }, $treeField));
68      # Start with a keyword search box.      # Put in the keyword search box.
69      my $expressionString = $cgi->param('keywords') || "";      my $expressionString = $cgi->param('keywords') || "";
70      push @rows, $cgi->Tr($cgi->th("Search Words"),      push @rows, $cgi->Tr($cgi->th("Search Words"),
71                           $cgi->td({ colspan => 2 },                           $cgi->td({ colspan => 2 },
# Line 134  Line 134 
134              # any keywords were specified.              # any keywords were specified.
135              my $query;              my $query;
136              if ($keywords) {              if ($keywords) {
137                    $self->PrintLine("Word search query submitted.<br />");
138                  $query = $sprout->Search($keywords, 2, @majorParms);                  $query = $sprout->Search($keywords, 2, @majorParms);
139              } else {              } else {
140                    $self->PrintLine("Standard search query submitted.<br />");
141                  $query = $sprout->Get(@majorParms);                  $query = $sprout->Get(@majorParms);
142              }              }
143              # Initialize the session file.              # Initialize the session file.
# Line 147  Line 149 
149                  $fd->Store($record);                  $fd->Store($record);
150                  $self->PutFeature($fd);                  $self->PutFeature($fd);
151                  $retVal++;                  $retVal++;
152                    if ($retVal % 100 == 0) {
153                        $self->PrintLine("$retVal features processed.<br />");
154                    }
155              }              }
156              # Close the session file.              # Close the session file.
157              $self->CloseSession();              $self->CloseSession();

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3