From d3ed5c8dd7b86a8fa92fcd00b7039f44c7f03fcb Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Tue, 18 Oct 2016 17:57:09 +0000
Subject: [PATCH] Add Gossypium hirsutum

svn path=/; revision=645
---
 interactome_scripts/find_species.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 7390c7e..24d1bf0 100755
--- 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',
-- 
2.34.1