From c1f8f6dea9d5c97174a2ee4682d245b02c3cd913 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Wed, 11 Feb 2015 21:29:45 +0000
Subject: [PATCH] Fix misspellings and shorten B.sylvaticum.Corvallis so that
 MySQL tables can be generated

svn path=/; revision=602
---
 interactome_scripts/find_species.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 8113541..f72e12a 100755
--- 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");
-- 
2.34.1