Commit bc886e83 authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

Add taxonomic exceptions

parent f6a3e51a
...@@ -196,6 +196,7 @@ my %longer_species_name = ( 'altaica' => '', #Panthera tigris altaica ...@@ -196,6 +196,7 @@ my %longer_species_name = ( 'altaica' => '', #Panthera tigris altaica
'alvus' => '', #Candidatus Methanomethylophilus alvus 'alvus' => '', #Candidatus Methanomethylophilus alvus
'andium' => '', #Anas flavirostris andium 'andium' => '', #Anas flavirostris andium
'birmanicus' => '', #Bos javanicus birmanicus 'birmanicus' => '', #Bos javanicus birmanicus
'bison' => '', #Bison bison bison
'boliviensis' => '', #Saimiri boliviensis boliviensis 'boliviensis' => '', #Saimiri boliviensis boliviensis
'brucei' => '', #Trypanosoma brucei brucei 'brucei' => '', #Trypanosoma brucei brucei
'corporis' => '', #Pediculus humanus corporis 'corporis' => '', #Pediculus humanus corporis
...@@ -274,7 +275,7 @@ sub Html { ...@@ -274,7 +275,7 @@ sub Html {
my $pred = ''; my $pred = '';
my @desc = split(' ', $match); my @desc = split(' ', $match);
# TPA is Third Party Annotation; TPA; TPA:REASSEMBLY. # TPA is Third Party Annotation; TPA; TPA:REASSEMBLY.
if ( $desc[0] =~ /PREDICTED:?/ || $desc[0] eq /Synthetic/ || $desc[0] eq /Uncultured/i || $desc[0] =~ /TSA:?/ || $desc[0] =~ /TPA:?/ || $desc[0] =~ /TPA_inf:?/ ){ if ( $desc[0] =~ /PREDICTED:?/ || $desc[0] eq /Synthetic/ || $desc[0] eq /Uncultured/i || $desc[0] =~ /TSA:?/ || $desc[0] =~ /TPA:?/ || $desc[0] =~ /TPA_inf:?/ || $desc[0] =~ /UNVERIFIED:?/ ){
$pred = $1.' '; $pred = $1.' ';
shift(@desc); shift(@desc);
} }
......
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