From 5695229cd5c226e985666ce06af6b7ae446b4acb Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Fri, 17 Sep 2010 23:09:55 +0000
Subject: [PATCH] Fixed Human, Mouse, and Sacc_cerevisiae gene id detection

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

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 3c4c8f3..2b39b44 100755
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -140,8 +140,7 @@ sub find_gene {
 		$gene = $isomer;
 	}elsif ($species eq "Homo_sapiens") {
 		my ($protein,$type,$chrom,$gene_id,$transcript) = split(/\s/,$gene_header);
-		$gene_id =~ s/Gene\://;
-		$gene = $gene_id;
+		$gene = $protein;
 	}elsif ($species eq "Laccaria_bicolor") {
 		my ($source,$spec,$gene_id,$scaffold) = split(/\|/, $gene_header);
 		$gene = $gene_id;
@@ -159,8 +158,7 @@ sub find_gene {
 		$gene = $gene_id;
 	}elsif ($species eq "Mus_musculus") {
 		my ($protein,$type,$chrom,$gene_id,$transcript) = split(/\s/,$gene_header);
-		$gene_id =~ s/Gene\://;
-		$gene = $gene_id;
+		$gene = $protein;
 	}elsif ($species eq "Neurospora_crassa") {
 		my ($transcript,$gene_id,$temp) = split(/\s\|\s/,$gene_header);
 		$gene = $transcript;
@@ -193,8 +191,7 @@ sub find_gene {
 		my ($name,$transcript,$gene_id,$temp) = split(/\|/, $gene_header);
 		$gene = $transcript;
 	}elsif ($species eq "Saccharomyces_cerevisiae") {
-		my ($unknown,$gene_name,$gene_id,$temp) = split(/\s/,$gene_header);
-		$gene_id =~ s/SGDID\://;
+		my ($gene_id,$gene_name,$transcript,$temp) = split(/\s/,$gene_header);
 		$gene = $gene_id;
 	}elsif ($species eq "Schizosaccharomyces_pombe") {
 		my ($gene_id,$gene_name,$unknown,$func,$name,$chrom,$temp) = split(/\s/,$gene_header);
-- 
2.34.1