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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.658, Wed Feb 13 18:11:00 2008 UTC revision 1.659, Sun Feb 17 19:29:37 2008 UTC
# Line 4035  Line 4035 
4035          $relational_db_response = $rdbH->SQL("SELECT genome  FROM genome");          $relational_db_response = $rdbH->SQL("SELECT genome  FROM genome");
4036      }      }
4037      my @genomes = sort { $a <=> $b } map { $_->[0] } @$relational_db_response;      my @genomes = sort { $a <=> $b } map { $_->[0] } @$relational_db_response;
4038      return @genomes;      return grep { -d "$FIG_Config::organisms/$_" } @genomes;
4039  }  }
4040    
4041  sub genome_list {  sub genome_list {
# Line 8910  Line 8910 
8910  =cut  =cut
8911    
8912  sub translated_function_of {  sub translated_function_of {
8913      my($self,$id,$user) = @_;      my($self,$id) = @_;
8914    
8915      my $func = $self->function_of($id,$user);      my $func = $self->function_of($id);
8916      if ($func)      if ($func)
8917      {      {
8918          $func = $self->translate_function($func);          $func = $self->translate_function($func);

Legend:
Removed from v.1.658  
changed lines
  Added in v.1.659

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3