[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.62, Sun Jul 30 05:44:57 2006 UTC revision 1.63, Wed Aug 2 23:51:19 2006 UTC
# Line 1506  Line 1506 
1506  The following relations are loaded by this method.  The following relations are loaded by this method.
1507    
1508      Family      Family
1509      ContainsFeature      IsFamilyForFeature
1510    
1511  The source information for these relations is taken from the C<families_for_protein>,  The source information for these relations is taken from the C<families_for_protein>,
1512  C<family_function>, and C<sz_family> methods of the B<FIG> object.  C<family_function>, and C<sz_family> methods of the B<FIG> object.
# Line 1530  Line 1530 
1530      my $genomeHash = $self->{genomes};      my $genomeHash = $self->{genomes};
1531      # Create load objects for the tables we're loading.      # Create load objects for the tables we're loading.
1532      my $loadFamily = $self->_TableLoader('Family');      my $loadFamily = $self->_TableLoader('Family');
1533      my $loadContainsFeature = $self->_TableLoader('ContainsFeature');      my $loadIsFamilyForFeature = $self->_TableLoader('IsFamilyForFeature');
1534      if ($self->{options}->{loadOnly}) {      if ($self->{options}->{loadOnly}) {
1535          Trace("Loading from existing files.") if T(2);          Trace("Loading from existing files.") if T(2);
1536      } else {      } else {
# Line 1542  Line 1542 
1542              Trace("Processing features for $genomeID.") if T(2);              Trace("Processing features for $genomeID.") if T(2);
1543              # Loop through this genome's PEGs.              # Loop through this genome's PEGs.
1544              for my $fid ($fig->all_features($genomeID, "peg")) {              for my $fid ($fig->all_features($genomeID, "peg")) {
1545                  $loadContainsFeature->Add("features", 1);                  $loadIsFamilyForFeature->Add("features", 1);
1546                  # Get this feature's families.                  # Get this feature's families.
1547                  my @families = $fig->families_for_protein($fid);                  my @families = $fig->families_for_protein($fid);
1548                  # Loop through the families, connecting them to the feature.                  # Loop through the families, connecting them to the feature.
1549                  for my $family (@families) {                  for my $family (@families) {
1550                      $loadContainsFeature->Put($family, $fid);                      $loadIsFamilyForFeature->Put($family, $fid);
1551                      # If this is a new family, create a record for it.                      # If this is a new family, create a record for it.
1552                      if (! exists $familyHash{$family}) {                      if (! exists $familyHash{$family}) {
1553                          $familyHash{$family} = 1;                          $familyHash{$family} = 1;

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3