Hello!

To see the file structure, click on "tree".

Note that updates take place every 10 minutes, commits may not be seen immediately.
Fix coding mistake from previous revision
authorelserj <elserj@localhost>
Thu, 25 Jul 2013 20:07:01 +0000 (20:07 +0000)
committerelserj <elserj@localhost>
Thu, 25 Jul 2013 20:07:01 +0000 (20:07 +0000)
svn path=/; revision=495

interactome_scripts/species_tree_names_fix.pl

index e1e1de1755f24aae4e1b06bf8d257a7e7f71fe65..3e9060aba57cc4fae510a1d73911bd6287c3b332 100755 (executable)
@@ -31,10 +31,11 @@ while (<table_file>){
        $spec_name =~ s/\.fasta//g;
        $spec_name =~ s/\.fa//g;
        my ($spec_genus, $spec_species) = split(/[_,.]/,$spec_name);
-       if ($spec_species neq "") {
+       if (defined($spec_species)) {
                        $spec_name = $spec_genus . " " . $spec_species;
-       }else
+       }else{
        $spec_name = $spec_genus;
+       }
        if(!defined($species_hash{$spec_id})) {
                $species_hash{$spec_id} = $spec_name;
        }else{