[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.432, Sun Jan 29 19:48:31 2006 UTC revision 1.433, Mon Jan 30 19:36:04 2006 UTC
# Line 12161  Line 12161 
12161  sub subsystems_for_genome {  sub subsystems_for_genome {
12162      my($self,$genome, $all) = @_;      my($self,$genome, $all) = @_;
12163    
12164        if (! $self->is_genome($genome)) { return () }
12165      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
12166    
12167    
# Line 12246  Line 12247 
12247              if (($_ =~ /^(\d+\.\d+)\s+(\S+)/) && ($all || ($2 && $2 != "-1")))              if (($_ =~ /^(\d+\.\d+)\s+(\S+)/) && ($all || ($2 && $2 != "-1")))
12248              {              {
12249                  my $genome = $1;                  my $genome = $1;
12250                    if ($self->is_genome($genome))
12251                    {
12252                  my $name = $self->genus_species($genome);                  my $name = $self->genus_species($genome);
12253                  push(@$genomes, [$genome, $name]);                  push(@$genomes, [$genome, $name]);
12254              }              }
12255          }          }
12256            }
12257          close(SSA);          close(SSA);
12258      }      }
12259    

Legend:
Removed from v.1.432  
changed lines
  Added in v.1.433

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3