Fixed for times when no genus + species

svn path=/; revision=494

diff --git a/interactome_scripts/species_tree_names_fix.pl b/interactome_scripts/species_tree_names_fix.pl
index 888bc2d45c3d04951d260a0368cceff167e5d06f..e1e1de1755f24aae4e1b06bf8d257a7e7f71fe65 100755 (executable)
--- 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{