fix list asm-diskgroup

This commit is contained in:
garnier-quentin 2019-03-12 10:40:09 +01:00
parent 679980cde7
commit 70c1886192
1 changed files with 6 additions and 2 deletions

View File

@ -51,8 +51,12 @@ sub manage_selection {
SELECT name, state, type FROM V$ASM_DISKGROUP
});
$self->{list_dg} = {};
while ((my $row = $self->{sql}->fetchrow_hashref())) {
$self->{list_dg}->{$row->{name}} = { %$row };
my $result = $self->{sql}->fetchall_arrayref();
foreach my $row (@$result) {
$self->{list_dg}->{$row->[0]} = {
state => $row->[1],
type => $row->[2],
};
}
}