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

register cdna databases as group cdna, previously not set so group would have been DEFAULT

parent 7d8c194e
......@@ -955,6 +955,26 @@ sub load_registry_from_db {
print $coredb." loaded\n" if ($verbose);
}
# register cdna databases
my @cdna_dbs = grep { /^[a-z]+_[a-z]+_cdna_\d+_/ } @dbnames;
for my $cdnadb ( @cdna_dbs ) {
my ($species, $num ) = ( $cdnadb =~ /(^[a-z]+_[a-z]+)_cdna_(\d+)/ );
my $dba = Bio::EnsEMBL::DBSQL::DBAdaptor->new
( -group => "cdna",
-species => $species,
-host => $host,
-user => $user,
-pass => $pass,
-port => $port,
-dbname => $cdnadb
);
(my $sp = $species ) =~ s/_/ /g;
$self->add_alias( $species, $sp );
print $cdnadb." loaded\n" if ($verbose);
}
my @vega_dbs = grep { /^[a-z]+_[a-z]+_vega_\d+_/ } @dbnames;
for my $vegadb ( @vega_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