[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.6, Mon Jul 16 20:04:51 2007 UTC revision 1.7, Mon Nov 5 21:31:01 2007 UTC
# Line 101  Line 101 
101      if (! $spec) {      if (! $spec) {
102          $self->SetMessage("No subsystem or class selected.");          $self->SetMessage("No subsystem or class selected.");
103      } else {      } else {
104          # Create a feature data object to store our results.          # We need to build a query to get our features. This involves building
105          my $fd = FeatureData->new($self);          # a filter clause and a parameter list.
         # We need to build a query to get our features. We need to remember  
         # the filter clause format and the parameter.  
106          my ($filterClause, $parameter);          my ($filterClause, $parameter);
107          if ($spec =~ /^id=(.+)$/) {          if ($spec =~ /^id=(.+)$/) {
108              # Here we're filtering for a single subsystem.              # Here we're filtering for a single subsystem.
# Line 140  Line 138 
138              $self->DefaultColumns($rhelp);              $self->DefaultColumns($rhelp);
139              # Initialize the session file.              # Initialize the session file.
140              $self->OpenSession($rhelp);              $self->OpenSession($rhelp);
141              # Initialize the result counter.              # Clear the result counter.
142              $retVal = 0;              $retVal = 0;
143              # Loop through the selected features.              # Process the query results.
144              while (my $record = $query->Fetch()) {              while (my $record = $query->Fetch()) {
145                  $fd->Store($record);                  # Compute the sort key.
146                  $self->PutFeature($fd);                  my $sort = $rhelp->SortKey($record);
147                    # Store this feature.
148                    $rhelp->PutData($sort, $record->PrimaryValue('Feature(id)'), $record);
149                    # Increment the result counter.
150                  $retVal++;                  $retVal++;
                 if ($retVal % 100 == 0) {  
                     $self->PrintLine("$retVal features processed.<br />");  
                 }  
151              }              }
152              # Close the session file.              # Close the session file.
153              $self->CloseSession();              $self->CloseSession();

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3