From 053b19537973dceb8f6ba41df6dd6dfde149a2b3 Mon Sep 17 00:00:00 2001
From: Ian Longden <ianl@sanger.ac.uk>
Date: Mon, 21 Mar 2005 17:04:25 +0000
Subject: [PATCH] add web species aliases in the subroutine
load_registry_with_web_adaptors
---
modules/Bio/EnsEMBL/Registry.pm | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/modules/Bio/EnsEMBL/Registry.pm b/modules/Bio/EnsEMBL/Registry.pm
index 415952d12a..2575cdc23b 100644
--- a/modules/Bio/EnsEMBL/Registry.pm
+++ b/modules/Bio/EnsEMBL/Registry.pm
@@ -722,6 +722,12 @@ sub load_registry_with_web_adaptors{
eval{ require SpeciesDefs };
if ($@){ die "Can't use SpeciesDefs.pm - $@\n"; }
my $conf = new SpeciesDefs();
+
+ my %species_alias = %{$SiteDefs::ENSEMBL_SPECIES_ALIASES};
+
+ foreach my $spec (keys %species_alias){
+ Bio::EnsEMBL::Registry->add_alias($species_alias{$spec},$spec);
+ }
}
--
GitLab