[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.59, Wed Jun 7 01:53:03 2006 UTC revision 1.60, Wed Jun 14 19:47:19 2006 UTC
# Line 1543  Line 1543 
1543          # Get the ID and score of the coupling.          # Get the ID and score of the coupling.
1544          my ($couplingID, $score) = $clustering->Values(['Coupling(id)',          my ($couplingID, $score) = $clustering->Values(['Coupling(id)',
1545                                                          'Coupling(score)']);                                                          'Coupling(score)']);
1546          # The coupling ID contains the two feature IDs separated by a space. We use          # Get the other feature that participates in the coupling.
1547          # this information to find the ID of the other feature.          my ($otherFeatureID) = $self->GetFlat(['ParticipatesInCoupling'],
1548          my ($fid1, $fid2) = split / /, $couplingID;                                             "ParticipatesInCoupling(to-link) = ? AND ParticipatesInCoupling(from-link) <> ?",
1549          my $otherFeatureID = ($featureID eq $fid1 ? $fid2 : $fid1);                                             [$couplingID, $featureID], 'ParticipatesInCoupling(to-link)');
1550          # Attach the other feature's score to its ID.          # Attach the other feature's score to its ID.
1551          $retVal{$otherFeatureID} = $score;          $retVal{$otherFeatureID} = $score;
1552          $found = 1;          $found = 1;

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3