[Bio] / Sprout / SproutLoad.pm Repository:
ViewVC logotype

Diff of /Sprout/SproutLoad.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51, Mon Jul 10 21:12:51 2006 UTC revision 1.52, Mon Jul 10 21:34:11 2006 UTC
# Line 374  Line 374 
374                  # For each coupled PEG, we need to verify that a coupling already                  # For each coupled PEG, we need to verify that a coupling already
375                  # exists. If not, we have to create one.                  # exists. If not, we have to create one.
376                  for my $coupleData (@couplings) {                  for my $coupleData (@couplings) {
377                        Trace("Coupling string is $coupleData (should be an array).") if T(4);
378                      my ($peg2, $score) = @{$coupleData};                      my ($peg2, $score) = @{$coupleData};
379                      # Compute the coupling ID.                      # Compute the coupling ID.
380                      my $coupleID = $self->{erdb}->CouplingID($peg1, $peg2);                      my $coupleID = $self->{erdb}->CouplingID($peg1, $peg2);

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3