Fix misspellings and shorten B.sylvaticum.Corvallis so that MySQL tables can be generated

svn path=/; revision=602

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 8113541b2c2285b043e7574f7a650b4de29b9be6..f72e12acbf866e9317e7572b7e1d5b2c20777d42 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -72,8 +72,8 @@ sub find_species {
                $species = "Elaphocordyceps_ophioglossoides";
        }elsif ($temp =~ /Elaphocordyceps\_paradoxa/) {
                $species = "Elaphocordyceps_paradoxa";
-       }elsif ($temp =~ /Epichloe_festuca/) {
-               $species = "Epichloe\_festuca";
+       }elsif ($temp =~ /Epichloe_festucae/) {
+               $species = "Epichloe\_festucae";
        }elsif ($temp =~ /Escherichia\_coli/) {
                $species = "Escherichia_coli";
        }elsif ($temp =~ /Eucalyptus\_grandis/) {
@@ -107,7 +107,7 @@ sub find_species {
        }elsif ($temp =~ /Linum\_usitatissimum/) {
                $species = "Linum_usitatissimum";
        }elsif ($temp =~ /Magnaporthe/) {
-               $species = "Magnaporthe_grissa";
+               $species = "Magnaporthe_grisea";
        }elsif ($temp =~ /Malus/) {
                $species = "Malus_domestica";
        }elsif ($temp =~ /Manihot/) {
@@ -268,7 +268,7 @@ sub find_gene {
        }elsif ($species eq "Brachypodium_distachyon") {
                my ($gene_id,$isomer) = split(/\|/, $gene_header);
                $gene = $isomer;
-       }elsif ($species eq "Brachypodium_sylvaticum.Corvallis") {
+       }elsif ($species eq "Brachypodium_sylvaticum.Corv") {
                my ($gene_id,$temp,$start,$end) = split(/\|/, $gene_header);
                $gene = $gene_id;
        }elsif ($species eq "Brachypodium_sylvaticum.Greece") {
@@ -337,7 +337,7 @@ sub find_gene {
                $gene = $gene_header;
        }elsif ($species eq "Elaphocordyceps_paradoxa") {
                $gene = $gene_header;
-       }elsif ($species eq "Epichloe_festuca") {
+       }elsif ($species eq "Epichloe_festucae") {
                my ($gene_id, $temp) = split(/\s/, $gene_header);
                $gene = $gene_id;
        }elsif ($species eq "Escherichia_coli") {
@@ -920,7 +920,7 @@ sub all_species_array {
        push (@spec_array, "Elaphocordyceps_capitata");
        push (@spec_array, "Elaphocordyceps_ophioglossoides");
        push (@spec_array, "Elaphocordyceps_paradoxa");
-       push (@spec_array, "Epichloe_festuca");
+       push (@spec_array, "Epichloe_festucae");
        push (@spec_array, "Escherichia_coli");
        push (@spec_array, "Eucalyptus_grandis");
        push (@spec_array, "Fragaria_vesca");