[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.20, Sun Mar 25 14:21:41 2007 UTC revision 1.21, Tue Mar 27 17:57:49 2007 UTC
# Line 117  Line 117 
117      return bless $self, $class;      return bless $self, $class;
118  }  }
119    
120    sub function_of {
121        my($self,$id) = @_;
122    
123        my $fig  = $self->{_fig};
124        my $func = $fig->function_of($id);
125    
126        return ($func ? $func : "");
127    }
128    
129  =head3 genomes  =head3 genomes
130    
# Line 1374  Line 1381 
1381      my $fig  = $figO->{_fig};      my $fig  = $figO->{_fig};
1382    
1383      my $cutoff = $args{-cutoff} ? $args{-cutoff} : 1.0e-5;      my $cutoff = $args{-cutoff} ? $args{-cutoff} : 1.0e-5;
1384      my $all    = $args{-all}    ? $args{-all}    : "fig";      my $all    = $args{-all}    ? 'all'          : "fig";
1385      my $max    = $args{-max}    ? $args{-max}    : 10000;      my $max    = $args{-max}    ? $args{-max}    : 10000;
1386    
1387      my @sims = $fig->sims($self->id,$max,$cutoff,$all);      my @sims = $fig->sims($self->id,$max,$cutoff,$all);
# Line 1383  Line 1390 
1390          my $peg1 = FeatureO->new($figO, $sims[0]->[0]);          my $peg1 = FeatureO->new($figO, $sims[0]->[0]);
1391    
1392          foreach my $sim (@sims) {          foreach my $sim (@sims) {
1393              $sim->[0] = $peg1;  #           $sim->[0] = $peg1;
1394              $sim->[1] = FeatureO->new($figO, $sim->[1]);  #           $sim->[1] = FeatureO->new($figO, $sim->[1]);
1395          }          }
1396      }      }
1397    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3