[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.71, Sun Jun 25 00:07:22 2006 UTC revision 1.73, Sun Jun 25 02:44:43 2006 UTC
# Line 1804  Line 1804 
1804      my ($self, $peg1, $peg2) = @_;      my ($self, $peg1, $peg2) = @_;
1805      # Declare the return values. We'll start with the coupling ID and undefine the      # Declare the return values. We'll start with the coupling ID and undefine the
1806      # flag and score until we have more information.      # flag and score until we have more information.
1807      my ($retVal, $inverted, $score) = (CouplingID($peg1, $peg2), undef, undef);      my ($retVal, $inverted, $score) = ($self->CouplingID($peg1, $peg2), undef, undef);
1808      # Find the coupling data.      # Find the coupling data.
1809      my @pegs = $self->GetAll(['Coupling', 'ParticipatesInCoupling'],      my @pegs = $self->GetAll(['Coupling', 'ParticipatesInCoupling'],
1810                                   "Coupling(id) = ? ORDER BY ParticipatesInCoupling(pos)",                                   "Coupling(id) = ? ORDER BY ParticipatesInCoupling(pos)",
# Line 1827  Line 1827 
1827    
1828  =head3 CouplingID  =head3 CouplingID
1829    
1830  C<< my $couplingID = Sprout::CouplingID($peg1, $peg2); >>  C<< my $couplingID = $sprout->CouplingID($peg1, $peg2); >>
1831    
1832  Return the coupling ID for a pair of feature IDs.  Return the coupling ID for a pair of feature IDs.
1833    
# Line 1860  Line 1860 
1860  =cut  =cut
1861  #: Return Type $;  #: Return Type $;
1862  sub CouplingID {  sub CouplingID {
1863      return join " ", sort @_;      my ($self, @pegs) = @_;
1864        return $self->DigestKey(join " ", sort @pegs);
1865  }  }
1866    
1867  =head3 ReadFasta  =head3 ReadFasta

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.73

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3