[Bio] / Sprout / SaplingGenomeLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/SaplingGenomeLoader.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3, Tue Jan 25 19:41:04 2011 UTC revision 1.5, Sun Feb 13 13:02:30 2011 UTC
# Line 113  Line 113 
113      # Create the statistics object.      # Create the statistics object.
114      my $stats = Stats->new();      my $stats = Stats->new();
115      # Delete the DNA.      # Delete the DNA.
116      DeleteRelatedRecords($sap, $genome, $stats, 'HasSection', 'DNASequence');      SaplingDataLoader::DeleteRelatedRecords($sap, $genome, $stats, 'HasSection', 'DNASequence');
117      # Delete the contigs.      # Delete the contigs.
118      DeleteRelatedRecords($sap, $genome, $stats, 'IsMadeUpOf', 'Contig');      SaplingDataLoader::DeleteRelatedRecords($sap, $genome, $stats, 'IsMadeUpOf', 'Contig');
119      # Delete the features.      # Delete the features.
120      DeleteRelatedRecords($sap, $genome, $stats, 'IsOwnerOf', 'Feature');      SaplingDataLoader::DeleteRelatedRecords($sap, $genome, $stats, 'IsOwnerOf', 'Feature');
121      # Delete the molecular machines.      # Delete the molecular machines.
122      DeleteRelatedRecords($sap, $genome, $stats, 'Uses', 'MolecularMachine');      SaplingDataLoader::DeleteRelatedRecords($sap, $genome, $stats, 'Uses', 'MolecularMachine');
123      # Delete the genome itself.      # Delete the genome itself.
124      my $subStats = $sap->Delete(Genome => $genome);      my $subStats = $sap->Delete(Genome => $genome);
125      # Accumulate the statistics from the delete.      # Accumulate the statistics from the delete.
# Line 996  Line 996 
996      # Insure the identifier exists in the database.      # Insure the identifier exists in the database.
997      $self->InsureEntity(Identifier => $alias, source => $aliasType, natural_form => $natural);      $self->InsureEntity(Identifier => $alias, source => $aliasType, natural_form => $natural);
998      # Connect the identifier to the feature.      # Connect the identifier to the feature.
999      $sap->InsertObject('Identifies', from_link => $alias, to_link => $fid, conf => $conf);      $sap->InsertObject('IsIdentifiedBy', to_link => $alias, from_link => $fid, conf => $conf);
1000  }  }
1001    
1002  1;  1;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3