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

Diff of /Sprout/Sprout.pm

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

revision 1.12, Wed May 4 03:24:43 2005 UTC revision 1.13, Thu May 5 03:14:03 2005 UTC
# Line 2353  Line 2353 
2353  sub GetAll {  sub GetAll {
2354          # Get the parameters.          # Get the parameters.
2355          my ($self, $objectNames, $filterClause, $parameterList, $fields, $count) = @_;          my ($self, $objectNames, $filterClause, $parameterList, $fields, $count) = @_;
2356          # Create the query.          # Call the ERDB method.
2357          my $query = $self->Get($objectNames, $filterClause, $parameterList);          my @retVal = $self->{_erdb}->GetAll($objectNames, $filterClause, $parameterList,
2358          # Set up a counter of the number of records read.                                                                                  $fields, $count);
         my $fetched = 0;  
         # Insure the counter has a value.  
         if (!defined $count) {  
                 $count = 0;  
         }  
         # Loop through the records returned, extracting the fields. Note that if the  
         # counter is non-zero, we stop when the number of records read hits the count.  
         my @retVal = ();  
         while (($count == 0 || $fetched < $count) && (my $row = $query->Fetch())) {  
                 my @rowData = $row->Values($fields);  
                 push @retVal, \@rowData;  
                 $fetched++;  
         }  
2359          # Return the resulting list.          # Return the resulting list.
2360          return @retVal;          return @retVal;
2361  }  }

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3