Fixed Human, Mouse, and Sacc_cerevisiae gene id detection

svn path=/; revision=38

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 3c4c8f3b926c1faa77424fded573054428760768..2b39b4403a8bd31f8dcfaea42262b838035d9b55 100755 (executable)
--- 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);