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
35bde354
Commit
35bde354
authored
Mar 09, 2006
by
Ian Longden
Browse files
fix case sensitivity in species name
parent
13630d4f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
5 deletions
+6
-5
modules/Bio/EnsEMBL/Registry.pm
modules/Bio/EnsEMBL/Registry.pm
+6
-5
No files found.
modules/Bio/EnsEMBL/Registry.pm
View file @
35bde354
...
...
@@ -123,6 +123,7 @@ my $API_VERSION = 38;
Arg [1] : (optional) string $arg file to load the registry from
Arg [2] : (optional) string if set prints out messages about conf file used.
Arg [3] : (optional) string if not 0 will print out all information
Example : Bio::EnsEMBL::Registry->load_all();
Returntype : none
Exceptions : none
...
...
@@ -389,7 +390,7 @@ sub get_all_DBAdaptors{
$species
=
$class
->
get_alias
(
$species
);
}
foreach
my
$dba
(
@
{
$registry_register
{'
_DBA
'}}){
if
(
!
defined
(
$species
)
||
$species
eq
$dba
->
species
){
if
(
!
defined
(
$species
)
||
lc
(
$species
)
eq
lc
(
$dba
->
species
)
)
{
if
(
!
defined
(
$group
)
||
lc
(
$group
)
eq
lc
(
$dba
->
group
)){
push
@ret
,
$dba
;
}
...
...
@@ -432,8 +433,9 @@ sub get_all_DBAdaptors_by_connection{
Arg [1] : name of the species to add the adaptor to in the registry.
Arg [2] : name of the group to add the adaptor to in the registry.
Arg [3] : The adaptor to be added to the registry as a DNA adaptor.
Example : Bio::EnsEMBL::Registry->add_DNAAdaptor("Human", "core", $dnaAdap);
Arg [3] : name of the species to get the dna from
Arg [4] : name of the group to get the dna from
Example : Bio::EnsEMBL::Registry->add_DNAAdaptor("Human", "estgene", "Human", "core");
Returntype : none
Exceptions : none
Status : Stable
...
...
@@ -511,7 +513,7 @@ sub add_adaptor{
# which should be a warning for now
#
if
(
defined
(
$reset
)){
# JUST REST THE HASH V
L
AUE NO MORE PROCESSING NEEDED
if
(
defined
(
$reset
)){
# JUST REST THE HASH VA
L
UE NO MORE PROCESSING NEEDED
$registry_register
{
$species
}{
lc
(
$group
)}{
lc
(
$type
)}
=
$adap
;
return
;
}
...
...
@@ -711,7 +713,6 @@ sub get_alias{
=head2 alias_exists
Arg [1] : name of the possible alias to get species for
Arg [2] : if set will not throw if not found.
Example : Bio::EnsEMBL::Registry->alias_exists("Human");
Description: does the species name exist.
Returntype : 1 if exists else 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