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
97117be3
Commit
97117be3
authored
Jul 24, 2008
by
Andreas Kusalananda Kähäri
Browse files
Bump $API_VERSION to 51.
Reformat of get_all_db_adaptors().
parent
638da2c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
14 deletions
+20
-14
modules/Bio/EnsEMBL/Registry.pm
modules/Bio/EnsEMBL/Registry.pm
+20
-14
No files found.
modules/Bio/EnsEMBL/Registry.pm
View file @
97117be3
...
...
@@ -119,7 +119,7 @@ use DBI;
use
vars
qw(%registry_register)
;
my
$API_VERSION
=
5
0
;
my
$API_VERSION
=
5
1
;
=head2 load_all
...
...
@@ -442,25 +442,31 @@ sub get_db{
=cut
sub
get_all_db_adaptors
{
my
(
$class
,
$db
)
=
@_
;
my
%ret
=
();
sub
get_all_db_adaptors
{
my
(
$class
,
$db
)
=
@_
;
my
%ret
=
();
# we now also want to add all the DBAdaptors for the same species.
# as add_db_adaptor does not add if it is from the same species.
# we now also want to add all the DBAdaptors for the same species.
# as add_db_adaptor does not add if it is from the same species.
foreach
my
$dba
(
@
{
$registry_register
{'
_DBA
'}
})
{
if
(
lc
(
$dba
->
species
())
eq
lc
(
$db
->
species
()
))
{
$ret
{
$dba
->
group
()}
=
$dba
;
}
foreach
my
$dba
(
@
{
$registry_register
{'
_DBA
'}
}
)
{
if
(
lc
(
$dba
->
species
()
)
eq
lc
(
$db
->
species
()
)
)
{
$ret
{
$dba
->
group
()
}
=
$dba
;
}
}
foreach
my
$key
(
keys
%
{
$registry_register
{
$class
->
get_alias
(
$db
->
species
())}{
lc
(
$db
->
group
())}{'
_special
'}}){
$ret
{
$key
}
=
$registry_register
{
$class
->
get_alias
(
$db
->
species
())}{
lc
(
$db
->
group
())}{'
_special
'}{
$key
};
}
foreach
my
$key
(
keys
%
{
$registry_register
{
$class
->
get_alias
(
$db
->
species
()
)
}
{
lc
(
$db
->
group
()
)
}{'
_special
'}
}
)
{
$ret
{
$key
}
=
$registry_register
{
$class
->
get_alias
(
$db
->
species
()
)
}
{
lc
(
$db
->
group
()
)
}{'
_special
'}{
$key
};
}
return
\
%ret
;
}
}
## end sub get_all_db_adaptors
#
...
...
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