From 52d60a98690fbff3ff7f41bafac389b556685758 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Sat, 24 Sep 2011 00:26:26 +0000
Subject: [PATCH] Added potato

svn path=/; revision=182
---
 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 a3f9be6..0828d95 100755
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -101,6 +101,8 @@ sub find_species {
 		$temp = "Schizosaccharomyces_pombe";
 	}elsif ($temp =~ /Selaginella/) {
 		$temp = "Selaginella_moellendorffii";
+	}elsif ($temp =~ /Solanum_tuberosum/) {
+			$temp = "Solanum_tuberosum";
 	}elsif ($temp =~ /Sorghum/) {
 		$temp = "Sorghum_bicolor";
 	}elsif ($temp =~ /Synechocystis/) {
@@ -264,6 +266,9 @@ sub find_gene {
 	}elsif ($species eq "Selaginella_moellendorffii") {
 		my ($name,$locus_id,$chrom_id,$prot_id) = split(/\|/,$gene_header);
 		$gene = $prot_id; #???
+	}elsif ($species eq "Solanum_tuberosum") {
+		my ($protein,$transcript,$type) = split(/\s/,$gene_header);
+		$gene = $protein;
 	}elsif ($species eq "Sorghum_bicolor") {
 		my ($gene_id,$transcript_id) = split(/\|/,$gene_header);
 		$gene = $transcript_id;
@@ -350,6 +355,7 @@ sub all_species_array {
 	push (@spec_array, "Saccharomyces_cerevisiae");
 	push (@spec_array, "Schizosaccharomyces_pombe");
 	push (@spec_array, "Selaginella_moellendorffii");
+	push (@spec_array, "Solanum_tuberosum");
 	push (@spec_array, "Sorghum_bicolor");
 	push (@spec_array, "Synechocystis_pcc6803");
 	push (@spec_array, "Theobroma_cacao");
-- 
2.34.1