Commit 9c9a1ce1 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

Changes in store() to quieten the unit tests.

parent 8f65f33e
......@@ -790,11 +790,9 @@ sub store {
# store translation
#
my @translations =
@{ $db->get_TranslationAdaptor()
->fetch_all_by_Transcript($transcript) };
my $translation = shift(@translations);
my $alt_translations =
$transcript->get_all_alternative_translations();
my $translation = $transcript->translation();
if ( defined($translation) ) {
#make sure that the start and end exon are set correctly
......@@ -865,7 +863,8 @@ sub store {
# Store the alternative translations, if there are any.
#
foreach my $alt_translation (@translations) {
if ( defined($alt_translations) ) {
foreach my $alt_translation ( @{$alt_translations} ) {
my $start_exon = $alt_translation->start_Exon();
my $end_exon = $alt_translation->end_Exon();
......@@ -893,7 +892,8 @@ sub store {
if ( defined($end_exon) ) {
$translation->end_Exon($end_exon);
} else {
throw("Translation's end_Exon does not appear to be one of the "
throw(
"Translation's end_Exon does not appear to be one of the "
. "exons in its associated Transcript." );
}
}
......@@ -901,6 +901,7 @@ sub store {
$db->get_TranslationAdaptor()
->store( $alt_translation, $transc_dbID );
} ## end foreach my $alt_translation...
} ## end if ( defined($alt_translations...))
#
# store the xrefs/object xref mapping
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment