Skip to content
Snippets Groups Projects
Commit 7f67363c authored by Magali Ruffier's avatar Magali Ruffier
Browse files

ENSCORESW-677: added method get_default_version

will return a single string with the value of the default version of the assembly
parent f093b736
No related branches found
No related tags found
No related merge requests found
......@@ -620,6 +620,35 @@ sub fetch_sequence_level {
}
=head2 get_default_version
Arg [1] : none
Example : $version = $csa->get_default_version();
Description: Retrieves the default version of the assembly
Returntype : String
Exceptions : throw if no default version is defined
Caller : general
Status : Stable
=cut
sub get_default_version {
my $self = shift;
my $version;
foreach my $dbID (keys %{$self->{'_is_default_version'}}) {
if ($self->{'_dbID_cache'}->{$dbID}->version) {
$version = $self->{'_dbID_cache'}->{$dbID}->version;
last;
}
}
throw('No default version is defined') if(!$version);
return $version;
}
=head2 get_mapping_path
......
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