Commit 5307de8d authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

New subspecies names

parent b882e4db
......@@ -186,7 +186,8 @@ my %large_names = ( 'MNPV' => '',
'virus' => '', #FIXME: Highlight also (... virus \d\w*)
);
my %longer_species_name = ( 'andium' => '', #Anas flavirostris andium
my %longer_species_name = ( 'altaica' => '', #Panthera tigris altaica
'andium' => '', #Anas flavirostris andium
'boliviensis' => '', #Saimiri boliviensis boliviensis
'brucei' => '', #Trypanosoma brucei brucei
'corporis' => '', #Pediculus humanus corporis
......@@ -199,13 +200,23 @@ my %longer_species_name = ( 'andium' => '', #Anas flavirostris andium
'fretensis' => '', #Anas versicolor fretensis
'gallus' => '',
'gorilla' => '', #Gorilla gorilla gorilla
'ibex' => '', #Capra ibex ibex
'mexicana' => '', #Leishmania mexicana mexicana
'musimon' => '', #Ovis aries musimon
'mutus' => '', #Bos grunniens mutus
'orientalis' => '', #Panthera pardus orientalis
'persica' => '', #Panthera leo persica
'pseudoobscura' => '',
'quinquefasciatus' => '',
'rubra' => '', #Varecia variegata rubra
'saxicolor' => '', #Panthera pardus saxicolor
'septentrionalium' => '', #Anas cyanoptera septentrionalium
'Sprague-Dawley' => '', #Rattus norvegicus Sprague-Dawley
'sp.' => '',
'sumatrae' => '', #Panthera tigris sumatrae
'variegata' => '', #Varecia variegata variegata
'versicolor' => '', #Anas versicolor versicolor
'verus' => '', #Pan troglodytes verus
'yoelii' => '',
'x' => '',
);
......@@ -214,7 +225,7 @@ my %longer_species_name = ( 'andium' => '', #Anas flavirostris andium
sub Html {
my ($file) = @_;
return 0 if ( $file !~ /\.cdsP$/ || -z $file || !-r $file );
return 0 if ( $file !~ /\.cdsP$/ || -z $file || !-r $file );
open (my $CDSP, '<', "$file") or die "\tCannot open '$file'\n";
open (my $CDSHTML, '>', "$file.html") or die "\tCannot create in '$file.html'\n";
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment