From fa70060091fcae8b97d8a958f7a8e4dcb594b8ce Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Sat, 4 Sep 1999 22:41:06 +0000
Subject: t le ask_from_entries avec les callbacks refait code sur la gestion
 des erreurs

refait code install2, la gestion des defaults, les dependances des profiles
et modules, les combo dans interactive
---
 perl-install/interactive.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index c466dabbf..de9998145 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -1,4 +1,5 @@
 
+
 package interactive;
 
 use diagnostics;
@@ -104,8 +105,9 @@ sub ask_from_entries_ref($$$$;$%) {
     my ($o, $title, $message, $l, $val, %callback) = @_;
     
     $message = ref $message ? $message : [ $message ];
+    my $val_hash = [ map { (ref $_) eq "SCALAR" ? { val => $_ } : {(%{$_}, type => "list")}} @{$val} ];
 
-    $o->ask_from_entries_refW($title, $message, $l, $val, %callback)
+    $o->ask_from_entries_refW($title, $message, $l, $val_hash, %callback)
     
 }
 sub wait_message($$$) {
-- 
cgit v1.2.1