From 966f4894dc65a860156a3fe63edd34c5f76fda6d Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Thu, 25 Jul 2013 20:01:29 +0000
Subject: [PATCH] Fixed for times when no genus + species

svn path=/; revision=494
---
 interactome_scripts/species_tree_names_fix.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/interactome_scripts/species_tree_names_fix.pl b/interactome_scripts/species_tree_names_fix.pl
index 888bc2d..e1e1de1 100755
--- a/interactome_scripts/species_tree_names_fix.pl
+++ b/interactome_scripts/species_tree_names_fix.pl
@@ -31,7 +31,10 @@ while (<table_file>){
 	$spec_name =~ s/\.fasta//g;
 	$spec_name =~ s/\.fa//g;
 	my ($spec_genus, $spec_species) = split(/[_,.]/,$spec_name);
-	$spec_name = $spec_genus . " " . $spec_species;
+	if ($spec_species neq "") {
+			$spec_name = $spec_genus . " " . $spec_species;
+	}else
+	$spec_name = $spec_genus;
 	if(!defined($species_hash{$spec_id})) {
 		$species_hash{$spec_id} = $spec_name;
 	}else{
-- 
2.34.1