[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.56, Fri Jul 14 01:37:07 2006 UTC revision 1.57, Sat Jul 15 08:09:13 2006 UTC
# Line 489  Line 489 
489              # Get the feature list for this genome.              # Get the feature list for this genome.
490              my $features = $fig->all_features_detailed($genomeID);              my $features = $fig->all_features_detailed($genomeID);
491              # Sort and count the list.              # Sort and count the list.
492              my @featureData = sort { $a->[0] cmp $b->[0] } @{$features};              my @featureTuples = sort { $a->[0] cmp $b->[0] } @{$features};
493              my $count = scalar @featureData;              my $count = scalar @featureTuples;
494              Trace("$count features found for genome $genomeID.") if T(3);              Trace("$count features found for genome $genomeID.") if T(3);
495              # Set up for our duplicate-feature check.              # Set up for our duplicate-feature check.
496              my $oldFeatureID = "";              my $oldFeatureID = "";
497              # Loop through the features.              # Loop through the features.
498              for my $featureData (@{$features}) {              for my $featureTuple (@featureTuples) {
499                  # Split the tuple.                  # Split the tuple.
500                  my ($featureID, $locations, undef, $type) = @{$featureData};                  my ($featureID, $locations, undef, $type) = @{$featureTuple};
501                  # Check for duplicates.                  # Check for duplicates.
502                  if ($featureID eq $oldFeatureID) {                  if ($featureID eq $oldFeatureID) {
503                      Trace("Duplicate feature $featureID found.") if T(1);                      Trace("Duplicate feature $featureID found.") if T(1);
# Line 858  Line 858 
858                      }                      }
859                  }                  }
860              }              }
861            }
862              # Now we loop through the diagrams. We need to create the diagram records              # Now we loop through the diagrams. We need to create the diagram records
863              # and link each diagram to its roles. Note that only roles which occur              # and link each diagram to its roles. Note that only roles which occur
864              # in subsystems (and therefore appear in the %ecToRoles hash) are              # in subsystems (and therefore appear in the %ecToRoles hash) are
# Line 891  Line 892 
892                  }                  }
893              }              }
894          }          }
     }  
895      # Finish the load.      # Finish the load.
896      my $retVal = $self->_FinishAll();      my $retVal = $self->_FinishAll();
897      return $retVal;      return $retVal;

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3