From adb45b3c12e6a0f70aa272d4a9b092f60d3cd492 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Tue, 8 Apr 2008 12:53:16 +0000
Subject: [PATCH] Make sure everything that the standard Exon object contains
may be found in a feature collection exon as well.
---
modules/Bio/EnsEMBL/Collection/Exon.pm | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/modules/Bio/EnsEMBL/Collection/Exon.pm b/modules/Bio/EnsEMBL/Collection/Exon.pm
index 10e09cd1d0..155a4a1d2e 100644
--- a/modules/Bio/EnsEMBL/Collection/Exon.pm
+++ b/modules/Bio/EnsEMBL/Collection/Exon.pm
@@ -17,10 +17,18 @@ sub _create_feature {
my $feature = $this->SUPER::_create_feature( $feature_type, $args );
if ( !$this->_lightweight() ) {
- my ( $analysis, $stable_id, $version ) =
- rearrange( [ 'STABLE_ID', 'VERSION', ], %{$args} );
-
- push( @{$feature}, $stable_id, $version );
+ my ( $phase, $end_phase, $stable_id, $version, $created_date,
+ $modified_date, $is_current )
+ = rearrange( [ 'PHASE', 'END_PHASE',
+ 'STABLE_ID', 'VERSION',
+ 'CREATED_DATE', 'MODIFIED_DATE',
+ 'IS_CURRENT'
+ ],
+ %{$args} );
+
+ push( @{$feature},
+ $phase, $end_phase, $stable_id, $version, $created_date,
+ $modified_date, $is_current );
}
return $feature;
--
GitLab