add default alias of the species name when adding a DBAdaptor

2e9487e9 · Ian Longden · 7fe63560 · 2e9487e9
Commit 2e9487e9 authored Feb 07, 2005 by Ian Longden
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

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

No files found.
--- a/modules/Bio/EnsEMBL/Registry.pm
+++ b/modules/Bio/EnsEMBL/Registry.pm
@@ -271,6 +271,11 @@ sub get_all_db_adaptors{
 sub add_DBAdaptor{
  my ($class, $species, $group, $adap) = @_;

+  if(!($class->alias_exists($species))){
+    $class->add_alias($species,$species);
+  }
+  
+
  $species = $class->get_alias($species);

  $registry_register{$species}{$group}{'_DB'} = $adap;