Hello!

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

Note that updates take place every 10 minutes, commits may not be seen immediately.
Added Kalanchoe laxiflora
authorelserj <elserj@localhost>
Fri, 28 Aug 2015 21:31:07 +0000 (21:31 +0000)
committerelserj <elserj@localhost>
Fri, 28 Aug 2015 21:31:07 +0000 (21:31 +0000)
svn path=/; revision=631

interactome_scripts/find_species.pl

index 9e58d0633825f1c6d55b1de9a02783e990fbf78c..e6cd283a697f0f8e1639b07e97614ac2e767f1b8 100755 (executable)
@@ -100,6 +100,8 @@ sub find_species {
                $species = "Hordeum_vulgare";
        }elsif ($temp =~ /Jatropha/) {
                $species = "Jatropha_curcas";
+       }elsif ($temp =~ /Kalanchoe\_laxiflora/) {
+               $species = "Kalanchoe_laxiflora";
        }elsif ($temp =~ /Laccaria/) {
                $species = "Laccaria_bicolor";
        }elsif ($temp =~ /Leersia\_perrieri/) {
@@ -384,6 +386,9 @@ sub find_gene {
        }elsif ($species eq "Jatropha_curcas") {
                my ($gene_id, $temp) = split(/\s/,$gene_header);
                $gene = $gene_id;
+       }elsif ($species eq "Kalanchoe_laxiflora") {
+               my ($gene_id, $peptide, $locus, $ID, $annot) = split(/\s/,$gene_header);
+               $gene = $gene_id;
        }elsif ($species eq "Laccaria_bicolor") {
                my ($source,$spec,$gene_id,$scaffold) = split(/\|/, $gene_header);
                $gene = $gene_id;
@@ -719,6 +724,12 @@ sub find_gene_synonym {
                $gene_id =~ s/gene\://;
                $peptide =~ s/\:pep//;
                $synonym = "$peptide,$gene_id";
+       }elsif ($species eq "Kalanchoe_laxiflora") {
+               my ($gene_id, $peptide, $locus, $ID, $annot) = split(/\s/,$gene_header);
+               $peptide =~ s/polypeptide\=//;
+               $locus =~ s/locus\=//;
+               $ID =~ s/ID\=//;
+               $synonym = "$peptide,$locus,$ID";
        }elsif ($species eq "Linum_usitatissimum") {
                my ($transcript,$gene_id) = split(/\|/, $gene_header);
                $synonym = $transcript;
@@ -938,6 +949,7 @@ sub all_species_array {
        push (@spec_array, "Homo_sapiens");
        push (@spec_array, "Hordeum_vulgare");
        push (@spec_array, "Jatropha_curcas");
+       push (@spec_array, "Kalanchoe_laxiflora");
        push (@spec_array, "Laccaria_bicolor");
        push (@spec_array, "Linum_usitatissimum");
        push (@spec_array, "Magnaporthe_grissa");