Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl
Commits
79fb61a9
Commit
79fb61a9
authored
Aug 12, 2010
by
Andreas Kusalananda Kähäri
Browse files
Make the registry use the new ApiVersion module.
parent
995e9733
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
21 deletions
+5
-21
modules/Bio/EnsEMBL/Registry.pm
modules/Bio/EnsEMBL/Registry.pm
+5
-21
No files found.
modules/Bio/EnsEMBL/Registry.pm
View file @
79fb61a9
...
...
@@ -32,7 +32,6 @@ Bio::EnsEMBL::Registry
$gene_adaptor = $registry->get_adaptor( 'Human', 'Core', 'Gene' );
=head1 DESCRIPTION
All Adaptors are stored/registered using this module. This module should
...
...
@@ -125,12 +124,12 @@ use Bio::EnsEMBL::DBSQL::DBAdaptor;
use
Bio::EnsEMBL::Utils::
Exception
qw( deprecate throw warning )
;
use
Bio::EnsEMBL::Utils::
Argument
qw(rearrange)
;
use
Bio::EnsEMBL::Utils::
ConfigRegistry
;
use
Bio::EnsEMBL::
ApiVersion
;
use
DBI
;
use
vars
qw(%registry_register)
;
my
$API_VERSION
=
59
;
# This is a map from group names to Ensembl DB adaptors. Used by
# load_all() and reset_DBAdaptor().
my
%group2adaptor
=
(
...
...
@@ -1426,7 +1425,7 @@ sub load_registry_from_db {
my
@dbnames
=
map
{
$_
->
[
0
]
}
@$res
;
my
%temp
;
my
$software_version
=
$self
->
software_version
();
my
$software_version
=
software_version
();
if
(
defined
(
$db_version
)
)
{
$software_version
=
$db_version
;
...
...
@@ -2298,21 +2297,6 @@ sub add_new_tracks{
}
=head2 software_version
get the software version.
Args : none
ReturnType : int
Status : At Risk
=cut
sub
software_version
{
my
(
$self
)
=
@_
;
return
$API_VERSION
;
}
=head2 no_version_check
getter/setter for whether to run the version checking
...
...
@@ -2397,7 +2381,7 @@ sub version_check {
}
}
## end if ( $database_version...
if
(
$database_version
!=
$API_VERSION
)
{
if
(
$database_version
!=
software_version
()
)
{
warn
(
sprintf
(
"
For %s there is a difference in the software release (%s)
"
...
...
@@ -2405,7 +2389,7 @@ sub version_check {
.
"
You should update one of these to ensure that your script
"
.
"
does not crash.
\n
",
$dba
->
dbc
()
->
dbname
(),
$API_VERSION
,
$database_version
software_version
()
,
$database_version
)
);
return
0
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment