From 70c188619279274c185faa9f344b083c63b7d8c0 Mon Sep 17 00:00:00 2001
From: garnier-quentin <garnier.quentin@gmail.com>
Date: Tue, 12 Mar 2019 10:40:09 +0100
Subject: [PATCH] fix list asm-diskgroup

---
 database/oracle/mode/listasmdiskgroups.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/database/oracle/mode/listasmdiskgroups.pm b/database/oracle/mode/listasmdiskgroups.pm
index 554d0572f..69653e630 100644
--- a/database/oracle/mode/listasmdiskgroups.pm
+++ b/database/oracle/mode/listasmdiskgroups.pm
@@ -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],
+        };
     }
 }