[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.21, Fri Sep 9 20:40:41 2005 UTC revision 1.23, Fri Sep 9 21:15:47 2005 UTC
# Line 1538  Line 1538 
1538              Trace("Peg 1 is " . $peg1Data->[1] . " and Peg 2 is " . $peg2Data->[1] . ".") if T(Coupling => 4);              Trace("Peg 1 is " . $peg1Data->[1] . " and Peg 2 is " . $peg2Data->[1] . ".") if T(Coupling => 4);
1539              push @retVal, [$peg1Data->[1], $peg2Data->[1], $peg1Data->[0]];              push @retVal, [$peg1Data->[1], $peg2Data->[1], $peg1Data->[0]];
1540          }          }
1541            Trace("Last index in evidence result is is $#retVal.") if T(Coupling => 4);
1542      }      }
1543      # Return the result.      # Return the result.
1544      return @retVal;      return @retVal;
# Line 1587  Line 1588 
1588                                   [$retVal], ["ParticipatesInCoupling(from-link)", "Coupling(score)"]);                                   [$retVal], ["ParticipatesInCoupling(from-link)", "Coupling(score)"]);
1589      # Check to see if we found anything.      # Check to see if we found anything.
1590      if (!@pegs) {      if (!@pegs) {
1591            Trace("No coupling found.") if T(Coupling => 4);
1592          # No coupling, so undefine the return value.          # No coupling, so undefine the return value.
1593          $retVal = undef;          $retVal = undef;
1594      } else {      } else {
1595          # We have a coupling! Get the score and check for inversion.          # We have a coupling! Get the score and check for inversion.
1596          $score = $pegs[0]->[1];          $score = $pegs[0]->[1];
1597          $inverted = ($pegs[0]->[0] eq $peg1);          my $firstFound = $pegs[0]->[0];
1598            $inverted = ($firstFound ne $peg1);
1599            Trace("Coupling score is $score. First peg is $firstFound, peg 1 is $peg1.") if T(Coupling => 4);
1600      }      }
1601      # Return the result.      # Return the result.
1602      return ($retVal, $inverted, $score);      return ($retVal, $inverted, $score);

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.23

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3