[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.38, Thu Jun 8 15:12:55 2006 UTC
# Line 1034  Line 1034 
1034          # Loop through the genomes.          # Loop through the genomes.
1035          for my $genomeID (sort keys %{$genomeHash}) {          for my $genomeID (sort keys %{$genomeHash}) {
1036              Trace("Processing $genomeID.") if T(3);              Trace("Processing $genomeID.") if T(3);
1037                # Create a hash of timestamps. We use this to prevent duplicate time stamps
1038                # from showing up for a single PEG's annotations.
1039                my %seenTimestamps = ();
1040              # Get the genome's annotations.              # Get the genome's annotations.
1041              my @annotations = $fig->read_all_annotations($genomeID);              my @annotations = $fig->read_all_annotations($genomeID);
1042              Trace("Processing annotations.") if T(2);              Trace("Processing annotations.") if T(2);
1043              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 = ();  
1044                  # Get the annotation tuple.                  # Get the annotation tuple.
1045                  my ($peg, $timestamp, $user, $text) = @{$tuple};                  my ($peg, $timestamp, $user, $text) = @{$tuple};
1046                  # 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.38

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3