summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-04 22:41:06 +0000
committerpad <pad@mandriva.com>1999-09-04 22:41:06 +0000
commitfa70060091fcae8b97d8a958f7a8e4dcb594b8ce (patch)
tree9e21393f038268dc0759f721aa63418fcbaeee70 /perl-install/interactive.pm
parent7670157b32ceb6f0437c0b7b154ee1f4bf454e62 (diff)
downloaddrakx-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar
drakx-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar.gz
drakx-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar.bz2
drakx-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar.xz
drakx-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.zip
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
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm4
1 files changed, 3 insertions, 1 deletions
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($$$) {