[Bio] / FigKernelPackages / FIGO.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIGO.pm

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

revision 1.18, Tue Mar 13 02:38:06 2007 UTC revision 1.19, Mon Mar 19 19:49:25 2007 UTC
# Line 1747  Line 1747 
1747      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1748      my $fig  = $figO->{_fig};      my $fig  = $figO->{_fig};
1749      my @ev = ();      my @ev = ();
1750      foreach my $tuple ($fig->coupling_evidence($self->peg1,$self->peg2))      foreach my $tuple ($fig->coupling_evidence($self->peg1->id,$self->peg2->id))
1751      {      {
1752          my($peg3,$peg4,$rep) = @$tuple;          my($peg3,$peg4,$rep) = @$tuple;
1753          push(@ev,[&FeatureO::new('FeatureO',$figO,$peg3),          push(@ev,[&FeatureO::new('FeatureO',$figO,$peg3),

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3