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
'alvus' => '', #Candidatus Methanomethylophilus alvus
'andium' => '', #Anas flavirostris andium
'birmanicus' => '', #Bos javanicus birmanicus
'bison' => '', #Bison bison bison
'boliviensis' => '', #Saimiri boliviensis boliviensis
'brucei' => '', #Trypanosoma brucei brucei
'corporis' => '', #Pediculus humanus corporis
......@@ -274,7 +275,7 @@ sub Html {
my $pred = '';
my @desc = split(' ', $match);
# 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.' ';
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