[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.4, Fri Jan 28 22:51:42 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.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3