From 509916103e81320b1babaf1046611ba35cf932bb Mon Sep 17 00:00:00 2001
From: Arne Stabenau <stabenau@sanger.ac.uk>
Date: Wed, 19 Jan 2005 15:43:56 +0000
Subject: [PATCH] added gene section to embl and genbank
---
modules/Bio/EnsEMBL/Utils/SeqDumper.pm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/modules/Bio/EnsEMBL/Utils/SeqDumper.pm b/modules/Bio/EnsEMBL/Utils/SeqDumper.pm
index 6963b7e95f..a02f922090 100644
--- a/modules/Bio/EnsEMBL/Utils/SeqDumper.pm
+++ b/modules/Bio/EnsEMBL/Utils/SeqDumper.pm
@@ -682,6 +682,10 @@ sub _dump_feature_table {
foreach my $gene_slice (@gene_slices) {
foreach my $gene (@{$gene_slice->get_all_Genes(undef,undef, 1)}) {
+ $value = $self->features2location( [$gene] );
+ $self->write( @ff, 'gene', $value );
+ $self->write( @ff, "", '/locus_tag='.$gene->stable_id() );
+ $self->write( @ff, "", '/gene='.$gene->stable_id() );
foreach my $transcript (@{$gene->get_all_Transcripts}) {
my $translation = $transcript->translation;
--
GitLab