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

Diff of /Sprout/SproutLoad.pm

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

revision 1.37, Sat May 27 02:01:24 2006 UTC revision 1.40, Thu Jun 8 15:37:32 2006 UTC
# Line 30  Line 30 
30      $stats->Accumulate($spl->LoadFeatureData());      $stats->Accumulate($spl->LoadFeatureData());
31      print $stats->Show();      print $stats->Show();
32    
 This module makes use of the internal Sprout property C<_erdb>.  
   
33  It is worth noting that the FIG object does not need to be a real one. Any object  It is worth noting that the FIG object does not need to be a real one. Any object
34  that implements the FIG methods for data retrieval could be used. So, for example,  that implements the FIG methods for data retrieval could be used. So, for example,
35  this object could be used to copy data from one Sprout database to another, or  this object could be used to copy data from one Sprout database to another, or
# Line 175  Line 173 
173                    subsystems => \%subsystems,                    subsystems => \%subsystems,
174                    sprout => $sprout,                    sprout => $sprout,
175                    loadDirectory => $directory,                    loadDirectory => $directory,
176                    erdb => $sprout->{_erdb},                    erdb => $sprout,
177                    loaders => [],                    loaders => [],
178                    options => $options                    options => $options
179                   };                   };
# Line 1034  Line 1032 
1032          # Loop through the genomes.          # Loop through the genomes.
1033          for my $genomeID (sort keys %{$genomeHash}) {          for my $genomeID (sort keys %{$genomeHash}) {
1034              Trace("Processing $genomeID.") if T(3);              Trace("Processing $genomeID.") if T(3);
1035                # Create a hash of timestamps. We use this to prevent duplicate time stamps
1036                # from showing up for a single PEG's annotations.
1037                my %seenTimestamps = ();
1038              # Get the genome's annotations.              # Get the genome's annotations.
1039              my @annotations = $fig->read_all_annotations($genomeID);              my @annotations = $fig->read_all_annotations($genomeID);
1040              Trace("Processing annotations.") if T(2);              Trace("Processing annotations.") if T(2);
1041              for my $tuple (@annotations) {              for my $tuple (@annotations) {
                 # Create a hash of timestamps. We use this to prevent duplicate time stamps  
                 # from showing up for a single PEG's annotations.  
                 my %seenTimestamps = ();  
1042                  # Get the annotation tuple.                  # Get the annotation tuple.
1043                  my ($peg, $timestamp, $user, $text) = @{$tuple};                  my ($peg, $timestamp, $user, $text) = @{$tuple};
1044                  # Here we fix up the annotation text. "\r" is removed,                  # Here we fix up the annotation text. "\r" is removed,

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3