Added tomato

svn path=/; revision=483

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index b532dd9b00310e64f969a5f0eefc6803a36dcda5..4f23fb7966a4f10a1d32eb174a4aef61e7ecd7a3 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -115,6 +115,8 @@ sub find_species {
                $temp = "Selaginella_moellendorffii";
        }elsif ($temp =~ /Solanum_tuberosum/) {
                        $temp = "Solanum_tuberosum";
+       }elsif ($temp =~ /Solanum_lycopersicum/) {
+                       $temp = "Solanum_lycopersicum";
        }elsif ($temp =~ /Sorghum/) {
                $temp = "Sorghum_bicolor";
        }elsif ($temp =~ /Synechocystis/) {
@@ -311,6 +313,9 @@ sub find_gene {
        }elsif ($species eq "Solanum_tuberosum") {
                my ($protein,$transcript,$type) = split(/\s/,$gene_header);
                $gene = $protein;
+       }elsif ($species eq "Solanum_lycopersicum") {
+               my ($protein,$type,$location,$gene,$transcript) = split(/\s/,$gene_header);
+               $gene = $protein;
        }elsif ($species eq "Sorghum_bicolor") {
                my ($gene_id,$transcript_id) = split(/\|/,$gene_header);
                $gene = $transcript_id;
@@ -423,6 +428,7 @@ sub all_species_array {
        push (@spec_array, "Schizosaccharomyces_pombe");
        push (@spec_array, "Selaginella_moellendorffii");
        push (@spec_array, "Solanum_tuberosum");
+       push (@spec_array, "Solanum_lycopersicum");
        push (@spec_array, "Sorghum_bicolor");
        push (@spec_array, "Synechocystis_pcc6803");
        push (@spec_array, "Takifugu_rubripes");