add web species aliases in the subroutine load_registry_with_web_adaptors

053b1953 · Ian Longden · c88d573a · 053b1953
Commit 053b1953 authored Mar 21, 2005 by Ian Longden
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

modules/Bio/EnsEMBL/Registry.pm modules/Bio/EnsEMBL/Registry.pm +6 -0

No files found.
--- 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);
+  }

 }