[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.16, Fri Jun 24 21:45:45 2005 UTC revision 1.17, Mon Jun 27 20:00:55 2005 UTC
# Line 1518  Line 1518 
1518          my @evidenceList = $self->GetAll(['IsEvidencedBy', 'PCH', 'UsesAsEvidence'],          my @evidenceList = $self->GetAll(['IsEvidencedBy', 'PCH', 'UsesAsEvidence'],
1519                                            "IsEvidencedBy(from-link) = ? ORDER BY PCH(id), UsesAsEvidence(pos) $ordering",                                            "IsEvidencedBy(from-link) = ? ORDER BY PCH(id), UsesAsEvidence(pos) $ordering",
1520                                            [$couplingID],                                            [$couplingID],
1521                                            ['PCH(used)', 'UsesAsEvidence(pos)']);                                            ['PCH(used)', 'UsesAsEvidence(to-link)']);
1522          # Loop through the evidence items. Each piece of evidence is represented by two          # Loop through the evidence items. Each piece of evidence is represented by two
1523          # positions in the evidence list, one for each feature on the other side of the          # positions in the evidence list, one for each feature on the other side of the
1524          # evidence link. If at some point we want to generalize to couplings with          # evidence link. If at some point we want to generalize to couplings with
# Line 1575  Line 1575 
1575      # Find the coupling data.      # Find the coupling data.
1576      my @pegs = $self->GetAll(['Coupling', 'ParticipatesInCoupling'],      my @pegs = $self->GetAll(['Coupling', 'ParticipatesInCoupling'],
1577                                   "Coupling(id) = ? ORDER BY ParticipatesInCoupling(pos)",                                   "Coupling(id) = ? ORDER BY ParticipatesInCoupling(pos)",
1578                                   [$retVal], "ParticipatesInCoupling(from-link), Coupling(score)");                                   [$retVal], ["ParticipatesInCoupling(from-link)", "Coupling(score)"]);
1579      # Check to see if we found anything.      # Check to see if we found anything.
1580      if (!@pegs) {      if (!@pegs) {
1581          # No coupling, so undefine the return value.          # No coupling, so undefine the return value.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3