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

Diff of /Sprout/Sprout.pm

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

revision 1.62, Sun Jun 18 05:38:12 2006 UTC revision 1.64, Sun Jun 18 07:09:55 2006 UTC
# Line 820  Line 820 
820      # Declare the return variable.      # Declare the return variable.
821      my $retVal = 0;      my $retVal = 0;
822      # Get the genome's contig sequence lengths.      # Get the genome's contig sequence lengths.
823      my @lens = GetFlat(['HasContig', 'IsMadeUpOf'], 'HasContig(from-link) = ?',      my @lens = $self->GetFlat(['HasContig', 'IsMadeUpOf'], 'HasContig(from-link) = ?',
824                         [$genomeID], 'IsMadeUpOf(len)');                         [$genomeID], 'IsMadeUpOf(len)');
825      # Sum the lengths.      # Sum the lengths.
826      map { $retVal += $_ } @lens;      map { $retVal += $_ } @lens;
# Line 857  Line 857 
857      my ($self, $genomeID, $type) = @_;      my ($self, $genomeID, $type) = @_;
858      # Compute the count.      # Compute the count.
859      my $retVal = $self->GetCount(['HasFeature', 'Feature'],      my $retVal = $self->GetCount(['HasFeature', 'Feature'],
860                                  "HasFeature(from-link) = ? AND Feature(type) = ?",                                  "HasFeature(from-link) = ? AND Feature(feature-type) = ?",
861                                  [$genomeID, $type]);                                  [$genomeID, $type]);
862      # Return the result.      # Return the result.
863      return $retVal;      return $retVal;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3