$gene = $transcript;
}elsif ($species eq "Theobroma_cacao") {
my ($gene_id,$transcript) = split(/\|/,$gene_header);
- $gene = $gene_id;
+ $gene = $transcript;
}elsif ($species eq "Tolypocladium_inflatum") {
$gene = $gene_header;
}elsif ($species eq "Trichodesmium_erythraeum") {
$synonym = "$peptide,$gene_id";
}elsif ($species eq "Theobroma_cacao") {
my ($gene_id,$transcript) = split(/\|/,$gene_header);
- $synonym = $transcript;
+ $synonym = $gene_id;
}elsif ($species eq "Trichodesmium_erythraeum") {
my ($peptide,$temp,$chrom,$gene_id,$transcript,$gene_type,$transcript_type) = split(/\s/,$gene_header);
$transcript =~ s/transcript\://;