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

Diff of /Sprout/Sapling.pm

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

revision 1.25, Mon Nov 30 17:39:10 2009 UTC revision 1.26, Fri Dec 11 19:07:33 2009 UTC
# Line 341  Line 341 
341      # Compute the key of the last segment containing our DNA.      # Compute the key of the last segment containing our DNA.
342      my $rightKey = "$contig:" . Tracer::Pad(int($right/$maxSequenceLength), 7, 1, '0');      my $rightKey = "$contig:" . Tracer::Pad(int($right/$maxSequenceLength), 7, 1, '0');
343      my @results = $self->GetFlat("DNASequence",      my @results = $self->GetFlat("DNASequence",
344                                   'DNASequence(id) <= ? AND DNASequence(id) >= ?',                                   'DNASequence(id) >= ? AND DNASequence(id) <= ?',
345                                   [$leftKey, $rightKey], 'sequence');                                   [$leftKey, $rightKey], 'sequence');
346      # Form all the DNA into a string and extract our piece.      # Form all the DNA into a string and extract our piece.
347      my $retVal = substr(join("", @results), $leftOffset, $location->Length);      my $retVal = substr(join("", @results), $leftOffset, $location->Length);

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3