From 71d84de9b55504baf0cb04b6afe98df3138172f7 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Thu, 23 Sep 2010 21:01:21 +0000
Subject: [PATCH] Took out find_gene lookups as this will now be handled before
 inparanoid gets files.  Fixes problem of blast incorrectly copying gene
 headers from fasta files

svn path=/; revision=49
---
 interactome_scripts/inparanoid_output_parse.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/interactome_scripts/inparanoid_output_parse.pl b/interactome_scripts/inparanoid_output_parse.pl
index 350270c..c40ca62 100755
--- a/interactome_scripts/inparanoid_output_parse.pl
+++ b/interactome_scripts/inparanoid_output_parse.pl
@@ -139,11 +139,12 @@ foreach my $input_file (@files) {
 	
 		my $id;
 	
-		my ($clust_id, $bit_score, $species, $score, $gene_header) = split ("\t", $entry);
+		my ($clust_id, $bit_score, $species, $score, $gene) = split ("\t", $entry);
 	
 		$clust_id = "$species_1"."___".$species_2."___".$clust_id;
 		$species = find_species($species);
-		my $gene = find_gene($gene_header,$species);
+		# the next line is no longer neccessary, future inparanoid runs will fix the gene headers before running
+		#my $gene = find_gene($gene_header,$species);
 		# skip isomers that are not .1
 		next if ($gene =~ /\.[2-9]$/);
 		next if ($gene =~ /\.1[0-9]$/);
-- 
2.34.1