Added new species

svn path=/; revision=488

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 23f5adddfdaf3c6bdfdcb5ef23ec17372b772a20..614aafc1bceea01e3de6605b655356e84857e5c3 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -79,6 +79,8 @@ sub find_species {
                $temp = "Mimulus_guttatus";
        }elsif ($temp =~ /Mus\_musculus/) {
                $temp = "Mus_musculus";
+       }elsif ($temp =~ /Musa/) {
+               $temp = "Musa_acuminata";
        }elsif ($temp =~ /Nectria\_haematococca/) {
                $temp = "Nectria_haematococca";
        }elsif ($temp =~ /Neurospora/) {
@@ -95,6 +97,8 @@ sub find_species {
                $temp = "Pediculus_humanus";
        }elsif ($temp =~ /Phoenix/) {
                $temp = "Phoenix_dactylifera";
+       }elsif ($temp =~ /Phyllostachys/) {
+               $temp = "Phyllostachys_heterocycla";
        }elsif ($temp =~ /Physcomit/) {
                $temp = "Physcomitrella_patens";
        }elsif ($temp =~ /Populus/) {
@@ -258,6 +262,9 @@ sub find_gene {
        }elsif ($species eq "Mus_musculus") {
                my ($protein,$type,$chrom,$gene_id,$transcript) = split(/\s/,$gene_header);
                $gene = $protein;
+       }elsif ($species eq "Musa_acuminata") {
+               my ($protein,$type,$chrom,$gene_id,$transcript) = split(/\s/,$gene_header);
+               $gene = $protein;
        }elsif ($species eq "Nectria_haematococca") {
                my ($source, $spec, $int_id, $gene_id) = split(/\|/, $gene_header);
                $gene = $gene_id;
@@ -283,6 +290,9 @@ sub find_gene {
        }elsif ($species eq "Phoenix_dactylifera") {
                my ($gene_id, $temp) = split(/\s/, $gene_header);
                $gene = $gene_id;
+       }elsif ($species eq "Phyllostachys_heterocycla") {
+               my ($gene_id, $gene_model, $location, $dot, $strand, $dot2, $info) = split (/\s+/, $gene_header);
+               $gene = $gene_id;
        }elsif ($species eq "Physcomitrella_patens") {
                my ($name,$pac_id) = split(/\|/,$gene_header);
                $gene = $name; #???
@@ -410,6 +420,7 @@ sub all_species_array {
        push (@spec_array, "Medicago_truncatula");
        push (@spec_array, "Mimulus_guttatus");
        push (@spec_array, "Mus_musculus");
+       push (@spec_array, "Musa_acuminata");
        push (@spec_array, "Nectria_haematococca");
        push (@spec_array, "Neurospora_crassa");
        push (@spec_array, "Nostoc_punctiforme");
@@ -418,6 +429,7 @@ sub all_species_array {
        push (@spec_array, "Oryzias_latipes");
        push (@spec_array, "Pediculus_humanus");
        push (@spec_array, "Phoenix_dactylifera");
+       push (@spec_array, "Phyllostachys_heterocycla");
        push (@spec_array, "Physcomitrella_patens");
        push (@spec_array, "Populus_trichocarpa");
        push (@spec_array, "Prunus_persica");