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

Diff of /Sprout/SaplingGenomeLoader.pm

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

revision 1.15, Mon Dec 5 22:05:15 2011 UTC revision 1.16, Tue Dec 6 21:44:46 2011 UTC
# Line 170  Line 170 
170    
171  Name of the directory containing the genome data files.  Name of the directory containing the genome data files.
172    
173    =item disconnected
174    
175    True if the application is disconnected from the network - do not
176    attempt to contact a SAP server for more data.
177    
178  =item RETURN  =item RETURN
179    
180  Returns a statistics object describing the activity during the reload.  Returns a statistics object describing the activity during the reload.
# Line 180  Line 185 
185    
186  sub Process {  sub Process {
187      # Get the parameters.      # Get the parameters.
188      my ($sap, $genome, $directory) = @_;      my ($sap, $genome, $directory, $disconnected) = @_;
189      # Clear the existing data for the specified genome.      # Clear the existing data for the specified genome.
190      my $stats = ClearGenome($sap, $genome);      my $stats = ClearGenome($sap, $genome);
191      # Load the new expression data from the specified directory.      # Load the new expression data from the specified directory.
192      my $newStats = Load($sap, $genome, $directory);      my $newStats = Load($sap, $genome, $directory, $disconnected);
193      # Merge the statistics.      # Merge the statistics.
194      $stats->Accumulate($newStats);      $stats->Accumulate($newStats);
195      # Return the result.      # Return the result.
# Line 628  Line 633 
633                      @aliases = ();                      @aliases = ();
634                  }                  }
635                  # Add the feature to the database.                  # Add the feature to the database.
636                  $self->AddFeature($fid, $assignHash->{$fid}, $locations, \@aliases,                  my $function = $assignHash->{$fid} // "";
637                    $self->AddFeature($fid, $function, $locations, \@aliases,
638                                    $protHash->{$fid}, $evHash->{$fid});                                    $protHash->{$fid}, $evHash->{$fid});
639                  # Denote we've added this feature, so that if a duplicate occurs we're ready.                  # Denote we've added this feature, so that if a duplicate occurs we're ready.
640                  $fidHash{$fid} = 1;                  $fidHash{$fid} = 1;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3