250 |
$loadGenome->Add("genomeIn"); |
$loadGenome->Add("genomeIn"); |
251 |
# The access code comes in via the genome hash. |
# The access code comes in via the genome hash. |
252 |
my $accessCode = $genomeHash->{$genomeID}; |
my $accessCode = $genomeHash->{$genomeID}; |
253 |
# Get the genus, species, and strain from the scientific name. Note that we append |
# Get the genus, species, and strain from the scientific name. |
|
# the genome ID to the strain. In some cases this is the totality of the strain name. |
|
254 |
my ($genus, $species, @extraData) = split / /, $self->{fig}->genus_species($genomeID); |
my ($genus, $species, @extraData) = split / /, $self->{fig}->genus_species($genomeID); |
255 |
my $extra = join " ", @extraData, "[$genomeID]"; |
my $extra = join " ", @extraData; |
256 |
# Get the full taxonomy. |
# Get the full taxonomy. |
257 |
my $taxonomy = $fig->taxonomy_of($genomeID); |
my $taxonomy = $fig->taxonomy_of($genomeID); |
258 |
# Output the genome record. |
# Output the genome record. |