Added Triticum turgidum

svn path=/; revision=538

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 78079c25a2002c2b1133e90dcf337376b64a1b6c..a0d37a98eea09b01265eb0de106ced017e9aa2c2 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -218,6 +218,8 @@ sub find_species {
                $species = "Triticum_monococcum.DV92";
        }elsif ($temp =~ /Triticum\_monococcum\.G3116/) {
                $species = "Triticum_monococcum.G3116";
+       }elsif ($temp =~/Triticum\_turgidum/) {
+               $species = "Triticum_turgidum";
        }elsif ($temp =~ /Triticum\_urartu/) {
                $species = "Triticum_urartu";
        }elsif ($temp =~ /Vitis\_vinifera/) {
@@ -558,6 +560,9 @@ sub find_gene {
        }elsif ($species eq "Triticum_monococcum.G3116") {
                my ($gene_id,$temp) = split(/\s+/,$gene_header);
                $gene = $gene_id;
+       }elsif ($species eq "Triticum_turgidum") {
+               my ($gi,$temp,$gb,$gene_id,$strand,$start,$stop) = split(/[\|\s]+/, $gene_header);
+               $gene = $gene_id;
        }elsif ($species eq "Triticum_urartu") {
                my ($peptide,$temp,$chrom,$gene_id,$transcript,$gene_type,$transcript_type) = split(/\s/,$gene_header);
         $transcript =~ s/transcript\://;
@@ -943,6 +948,7 @@ sub all_species_array {
        push (@spec_array, "Triticum_aestivum");
        push (@spec_array, "Triticum_monococcum.DV92");
        push (@spec_array, "Triticum_monococcum.G3116");
+       push (@spec_array, "Triticum_turgidum");
        push (@spec_array, "Triticum_urartu");
        push (@spec_array, "Vitis_vinifera");
        push (@spec_array, "Zea_mays");