Commit 71af77e5 authored by Ian Longden's avatar Ian Longden
Browse files

estgene replaced with est in load_registry_from_db

parent 075efe63
...@@ -893,20 +893,20 @@ sub load_registry_from_db{ ...@@ -893,20 +893,20 @@ sub load_registry_from_db{
print $coredb." loaded\n" if ($verbose); print $coredb." loaded\n" if ($verbose);
} }
my @estgene_dbs = grep { /^[a-z]+_[a-z]+_estgene_\d+_/ } @dbnames; my @est_dbs = grep { /^[a-z]+_[a-z]+_est_\d+_/ } @dbnames;
for my $estgene_db ( @estgene_dbs ) { for my $est_db ( @est_dbs ) {
my ($species, $num) = ( $estgene_db =~ /(^[a-z]+_[a-z]+)_estgene_(\d+)/ ); my ($species, $num) = ( $est_db =~ /(^[a-z]+_[a-z]+)_est_(\d+)/ );
my $dba = Bio::EnsEMBL::DBSQL::DBAdaptor->new my $dba = Bio::EnsEMBL::DBSQL::DBAdaptor->new
( -group => "estgene", ( -group => "est",
-species => $species, -species => $species,
-host => $host, -host => $host,
-user => $user, -user => $user,
-pass => $pass, -pass => $pass,
-port => $port, -port => $port,
-dbname => $estgene_db -dbname => $est_db
); );
print $estgene_db." loaded\n" if ($verbose); print $est_db." loaded\n" if ($verbose);
} }
......
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