| 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, |
Parent Directory
| 
Revision Log
| 
Patch