Commit 9f90d0b1 authored by Ian Longden's avatar Ian Longden
Browse files

change_access changed

parent be0c967a
......@@ -605,7 +605,7 @@ sub alias_exists{
sub set_disconnect_when_inactive{
foreach my $dba ( @{get_all_DBAdaptors()}){
foreach my $dba ( @{$registry_register{'_DBA'}}){
my $dbc = $dba->dbc;
#disconnect if connected
if($dbc->connected()){
......@@ -641,7 +641,7 @@ sub set_disconnect_when_inactive{
sub change_access{
my ($host,$port,$user,$dbname,$new_user,$new_pass) = @_;
foreach my $dba ( @{get_all_DBAdaptors()}){
foreach my $dba ( @{$registry_register{'_DBA'}}){
my $dbc = $dba->dbc;
if((!defined($host) or $host eq $dbc->host) and
(!defined($port) or $port eq $dbc->port) and
......
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