Add beaver no-isoforms

svn path=/; revision=650

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 98c0e30665d9e52a304cdfcf8ba0471173db2ffc..ea74fc30567f801e55a9a868beacb7dded4006dc 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -50,8 +50,10 @@ sub find_species {
                $species = "Capsicum_annuum";
        }elsif ($temp =~ /Carica\_papaya/) {
                $species = "Carica_papaya";
-       }elsif ($temp =~ /Castor_canadensis/) {
+       }elsif ($temp =~ /Castor_canadensis_/) {
                $species = "Castor_canadensis";
+       }elsif ($temp =~ /Castor_canadensis.no.isoforms/) {
+               $species = "Castor_canadensis.no.isoforms";
        }elsif ($temp =~ /Cavia_porcellus/) {
                $species = "Cavia_porcellus";
        }elsif ($temp =~ /Chlamy/) {
@@ -359,6 +361,9 @@ sub find_gene {
                my ($gene_number,$gene_id) = split(/::/, $gene_info);
                my ($trinity_id, $m_number) = split(/\|/, $gene_id);
                $gene = $gene_number; #???
+       }elsif ($species eq "Castor_canadensis.no.isoforms") {
+               my ($gene_id,$m_number, $g_number) = split(/\|/, $gene_header);
+               $gene = $gene_id;
        }elsif ($species eq "Cavia_porcellus") {
                my ($isoform, $type, $scaffold, $temp_gene, $transcript, $gene_biotype, $transcript_biotype, $gene_symbol, $description) = split(/\s/, $gene_header);
                $gene = $isoform;