[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.36, Fri May 19 07:26:17 2006 UTC revision 1.38, Thu Jun 8 15:12:55 2006 UTC
# Line 766  Line 766 
766                          # part of the spreadsheet cell ID.                          # part of the spreadsheet cell ID.
767                          for (my $col = 0; defined($roleID = $sub->get_role($col)); $col++) {                          for (my $col = 0; defined($roleID = $sub->get_role($col)); $col++) {
768                              # Get the features in the spreadsheet cell for this genome and role.                              # Get the features in the spreadsheet cell for this genome and role.
769                              my @pegs = $sub->get_pegs_from_cell($row, $col);                              my @pegs = grep { !$fig->is_deleted_fid($_) } $sub->get_pegs_from_cell($row, $col);
770                              # Only proceed if features exist.                              # Only proceed if features exist.
771                              if (@pegs > 0) {                              if (@pegs > 0) {
772                                  # Create the spreadsheet cell.                                  # Create the spreadsheet cell.
# 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.36  
changed lines
  Added in v.1.38

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3