Add Gossypium hirsutum

svn path=/; revision=645

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 7390c7e9ad83102b17e69c13e68d25861589d088..24d1bf0bb38570d50dec948e421d45816773a744 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -98,6 +98,8 @@ sub find_species {
                $species = "Glycine_max";
        }elsif ($temp =~ /Gossypium\_raimondii/) {
                $species = "Gossypium_raimondii";
+       }elsif ($temp =~ /Gossypium\_hirsutum/) {
+               $species = "Gossypium_hirsutum";
        }elsif ($temp =~ /Homo\_sapiens/) {
                $species = "Homo_sapiens";
        }elsif ($temp =~ /Hordeum\_vulgare/) {
@@ -391,6 +393,8 @@ sub find_gene {
        }elsif ($species eq "Gossypium_raimondii") {
                my ($locus_id,$isomer) = split(/\|/,$gene_header);
                $gene = $isomer;
+       }elsif ($species eq "Gossypium_hirsutum") {
+               $gene = $gene_header;
        }elsif ($species eq "Homo_sapiens") {
                my ($peptide,$temp,$chrom,$gene_id,$transcript,$gene_type,$transcript_type) = split(/\s/,$gene_header);
                $transcript =~ s/transcript\://;
@@ -974,6 +978,7 @@ sub all_species_array {
        push (@spec_array, "Gasterosteus_aculeatus");
        push (@spec_array, "Glycine_max");
        push (@spec_array, "Gossypium_raimondii");
+       push (@spec_array, "Gossypium_hirsutum");
        push (@spec_array, "Homo_sapiens");
        push (@spec_array, "Hordeum_vulgare");
        push (@spec_array, "Jatropha_curcas");
@@ -1106,6 +1111,7 @@ sub find_taxon {
                'Gasterosteus_aculeatus', '69293',
                'Glycine_max', '3847',
                'Gossypium_raimondii', '29730',
+               'Gossypium_hirsutum', '3635',
                'Homo_sapiens', '9606',
                'Hordeum_vulgare', '4513',
                'Jatropha_curcas', '180498',