Fix Pediculus gene identification

svn path=/; revision=46

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index ae21489e475e3c7cd573744430fc5f7912e823ac..532eeebb37ea0867d4c40f032f82655ed782ef5b 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -171,7 +171,7 @@ sub find_gene {
        }elsif ($species eq "Pediculus_humanus") {
                my ($source,$gene_pa,$func,$unknown,$gene_id) = split(/\|/, $gene_header);
                $gene_id =~ s/gene\://;
-               $gene = $gene_id;
+               $gene = $gene_pa;
        }elsif ($species eq "Physcomitrella_patens") {
                my ($name,$locus_id,$scaffold,$prot_id) = split(/\|/,$gene_header);
                $gene = $prot_id; #???