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
f4ae246e
Commit
f4ae246e
authored
Nov 01, 2010
by
Andreas Kusalananda Kähäri
Browse files
be even smarter.
parent
20aaa6b8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
3 deletions
+16
-3
modules/Bio/EnsEMBL/Registry.pm
modules/Bio/EnsEMBL/Registry.pm
+16
-3
No files found.
modules/Bio/EnsEMBL/Registry.pm
View file @
f4ae246e
...
...
@@ -2454,6 +2454,8 @@ sub get_species_and_object_type {
if
(
!
%stable_id_prefix
)
{
# Fetch stable ID prefixes from all connected databases.
my
$dbc
;
foreach
my
$dba
(
@
{
$self
->
get_all_DBAdaptors
(
'
-group
'
=>
'
core
'
)
}
)
{
...
...
@@ -2461,7 +2463,11 @@ sub get_species_and_object_type {
if
(
lc
(
$species
)
eq
'
multi
'
)
{
next
}
my
$dbh
=
$dba
->
dbc
()
->
db_handle
();
if
(
!
defined
(
$dbc
)
||
$dbc
->
host
()
ne
$dba
->
dbc
()
->
host
()
)
{
$dbc
=
$dba
->
dbc
();
}
my
$dbh
=
$dbc
->
db_handle
();
my
$statement
=
"
SELECT meta_value
"
...
...
@@ -2580,12 +2586,19 @@ FIRSTLOOP:
SECONDLOOP:
foreach
my
$species
(
@nonstandard_prefix_species
)
{
my
$dbc
;
foreach
my
$dba
(
@
{
$self
->
get_all_DBAdaptors
('
-group
'
=>
'
core
',
'
-species
'
=>
$species
)
}
)
{
my
$dbh
=
$dba
->
dbc
()
->
db_handle
();
my
$dbhost
=
$dba
->
dbc
()
->
host
();
if
(
!
defined
(
$dbc
)
||
$dbc
->
host
()
ne
$dba
->
dbc
()
->
host
()
)
{
$dbc
=
$dba
->
dbc
();
}
my
$dbh
=
$dbc
->
db_handle
();
my
$dbhost
=
$dbc
->
host
();
foreach
my
$type
(
'
Gene
',
'
Transcript
',
'
Translation
',
'
Exon
'
)
{
my
$statement
=
...
...
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