Updated for newer version of physcomitrella fasta file

svn path=/; revision=285

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index e1e25b4d388f0fa902962045f82a80ed50442ffc..4f78afd9cf43e760b289ce465912382cc68332c9 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -240,8 +240,8 @@ sub find_gene {
                my ($gene_id, $temp) = split(/\s/, $gene_header);
                $gene = $gene_id;
        }elsif ($species eq "Physcomitrella_patens") {
-               my ($name,$locus_id,$scaffold,$prot_id) = split(/\|/,$gene_header);
-               $gene = $prot_id; #???
+               my ($name,$pac_id) = split(/\|/,$gene_header);
+               $gene = $name; #???
        }elsif ($species eq "Populus_trichocarpa") {
                my ($gene_id,$transcript_id) = split(/\|/,$gene_header);
                $gene = $transcript_id;