[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.76, Sun Jun 25 18:03:29 2006 UTC revision 1.77, Sun Jul 23 16:44:10 2006 UTC
# Line 1656  Line 1656 
1656  sub CoupledFeatures {  sub CoupledFeatures {
1657      # Get the parameters.      # Get the parameters.
1658      my ($self, $featureID) = @_;      my ($self, $featureID) = @_;
1659        Trace("Looking for features coupled to $featureID.") if T(coupling => 3);
1660      # Create a query to retrieve the functionally-coupled features.      # Create a query to retrieve the functionally-coupled features.
1661      my $query = $self->Get(['ParticipatesInCoupling', 'Coupling'],      my $query = $self->Get(['ParticipatesInCoupling', 'Coupling'],
1662                             "ParticipatesInCoupling(from-link) = ?", [$featureID]);                             "ParticipatesInCoupling(from-link) = ?", [$featureID]);
# Line 1668  Line 1669 
1669          # Get the ID and score of the coupling.          # Get the ID and score of the coupling.
1670          my ($couplingID, $score) = $clustering->Values(['Coupling(id)',          my ($couplingID, $score) = $clustering->Values(['Coupling(id)',
1671                                                          'Coupling(score)']);                                                          'Coupling(score)']);
1672            Trace("$featureID coupled with score $score to ID $couplingID.") if T(coupling => 4);
1673          # Get the other feature that participates in the coupling.          # Get the other feature that participates in the coupling.
1674          my ($otherFeatureID) = $self->GetFlat(['ParticipatesInCoupling'],          my ($otherFeatureID) = $self->GetFlat(['ParticipatesInCoupling'],
1675                                             "ParticipatesInCoupling(to-link) = ? AND ParticipatesInCoupling(from-link) <> ?",                                             "ParticipatesInCoupling(to-link) = ? AND ParticipatesInCoupling(from-link) <> ?",
1676                                             [$couplingID, $featureID], 'ParticipatesInCoupling(from-link)');                                             [$couplingID, $featureID], 'ParticipatesInCoupling(from-link)');
1677            Trace("$couplingID target feature is $otherFeatureID.") if T(coupling => 4);
1678          # Attach the other feature's score to its ID.          # Attach the other feature's score to its ID.
1679          $retVal{$otherFeatureID} = $score;          $retVal{$otherFeatureID} = $score;
1680          $found = 1;          $found = 1;

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3