Commit eacaece9 authored by Ian Longden's avatar Ian Longden
Browse files

added the loading of vega databases for the sub load_registry_from_db

parent 91fb05e2
......@@ -901,6 +901,24 @@ sub load_registry_from_db{
print $coredb." loaded\n" if ($verbose);
}
my @vega_dbs = grep { /^[a-z]+_[a-z]+_vega_\d+_/ } @dbnames;
for my $vegadb ( @vega_dbs ) {
my ($species, $num ) = ( $vegadb =~ /(^[a-z]+_[a-z]+)_vega_(\d+)/ );
my $dba = Bio::EnsEMBL::DBSQL::DBAdaptor->new
( -group => "vega",
-species => $species,
-host => $host,
-user => $user,
-pass => $pass,
-port => $port,
-dbname => $vegadb
);
(my $sp = $species ) =~ s/_/ /g;
$self->add_alias( $species, $sp );
print $vegadb." loaded\n" if ($verbose);
}
my @est_dbs = grep { /^[a-z]+_[a-z]+_est_\d+_/ } @dbnames;
for my $est_db ( @est_dbs ) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment