Fix Mustela putorius sub species

svn path=/; revision=648

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 1fe15267bd7be36c2963707e4c89635732121b1c..097079e729d679e61c0d7631eaff7df6700961fd 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -498,7 +498,7 @@ sub find_gene {
        }elsif ($species eq "Musa_acuminata") {
                my ($protein,$type,$chrom,$gene_id,$transcript) = split(/\s/,$gene_header);
                $gene = $protein;
-       }elsif ($species eq "Mustela_putorius") {
+       }elsif ($species eq "Mustela_putorius.furo") {
                my ($isoform, $type, $scaffold, $temp_gene, $transcript, $gene_biotype, $transcript_biotype, $gene_symbol, $description) = split(/\s/, $gene_header);
                $gene = $isoform;
        }elsif ($species eq "Nectria_haematococca") {
@@ -916,7 +916,7 @@ sub find_gene_synonym {
                $gene_id =~ s/gene\://;
                $peptide =~ s/\:pep//;
                $synonym = "$peptide,$gene_id";
-       }elsif ($species eq "Mustela_putorius") {
+       }elsif ($species eq "Mustela_putorius.furo") {
                my ($isoform, $type, $scaffold, $temp_gene, $transcript, $gene_biotype, $transcript_biotype, $gene_symbol, $description) = split(/\s/, $gene_header);
                $temp_gene =~ s/gene\://;
                $transcript =~ s/transcript\://;
@@ -1183,7 +1183,7 @@ sub all_species_array {
        push (@spec_array, "Mimulus_guttatus");
        push (@spec_array, "Mus_musculus");
        push (@spec_array, "Musa_acuminata");
-       push (@spec_array, "Mustela_putorius");
+       push (@spec_array, "Mustela_putorius.furo");
        push (@spec_array, "Nectria_haematococca");
        push (@spec_array, "Nelumbo_nucifera");
        push (@spec_array, "Neurospora_crassa");