[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.19, Mon Mar 19 19:49:25 2007 UTC revision 1.20, Sun Mar 25 14:21:41 2007 UTC
# Line 1377  Line 1377 
1377      my $all    = $args{-all}    ? $args{-all}    : "fig";      my $all    = $args{-all}    ? $args{-all}    : "fig";
1378      my $max    = $args{-max}    ? $args{-max}    : 10000;      my $max    = $args{-max}    ? $args{-max}    : 10000;
1379    
1380      return $fig->sims($self->id,$max,$cutoff,$all);      my @sims = $fig->sims($self->id,$max,$cutoff,$all);
1381    
1382        if (@sims) {
1383            my $peg1 = FeatureO->new($figO, $sims[0]->[0]);
1384    
1385            foreach my $sim (@sims) {
1386                $sim->[0] = $peg1;
1387                $sim->[1] = FeatureO->new($figO, $sim->[1]);
1388            }
1389        }
1390    
1391        return @sims;
1392  }  }
1393    
1394    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3