[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.153, Thu Sep 16 15:15:57 2004 UTC revision 1.154, Mon Sep 20 21:16:02 2004 UTC
# Line 6242  Line 6242 
6242              s/^\s*//;              s/^\s*//;
6243              s/\s*$//;              s/\s*$//;
6244              next if $_ eq "";              next if $_ eq "";
6245              my ($genome, $rest) = split(/\s+/, $_, 2);              if (($_ =~ /^(\d+\.\d+)\s+(\S+)/) && $2)
6246                {
6247                    my $genome = $1;
6248              my $name = $self->genus_species($genome);              my $name = $self->genus_species($genome);
6249              push(@$genomes, [$genome, $name]);              push(@$genomes, [$genome, $name]);
6250          }          }
6251            }
6252          close(SSA);          close(SSA);
6253      }      }
6254    

Legend:
Removed from v.1.153  
changed lines
  Added in v.1.154

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3