summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-22 22:34:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-22 22:34:54 +0000
commit4db7377ccd7434b49679eb2ca8188174d5891402 (patch)
treed9ded8629383fd82633d353913a5c259dc4945f0 /perl-install/interactive.pm
parent68f8fc470b9d97ab209ab6d106a2efd7b4df83dd (diff)
downloaddrakx-4db7377ccd7434b49679eb2ca8188174d5891402.tar
drakx-4db7377ccd7434b49679eb2ca8188174d5891402.tar.gz
drakx-4db7377ccd7434b49679eb2ca8188174d5891402.tar.bz2
drakx-4db7377ccd7434b49679eb2ca8188174d5891402.tar.xz
drakx-4db7377ccd7434b49679eb2ca8188174d5891402.zip
add feature "allow_empty_list" for "list" entries (disables the special cases for 0 and 1 element lists)
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 6cfc277f2..ed6b0184d 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -26,7 +26,8 @@ use common;
#- range (with min, max)
#- combo (with list, not_edit)
#- list (with list, icon2f (aka icon), separator (aka tree), format (aka pre_format function),
-#- help can be a hash or a function)
+#- help can be a hash or a function,
+#- allow_empty_list disables the special cases for 0 and 1 element lists)
#- entry (the default) (with hidden)
#
#- heritate from this class and you'll get all made interactivity for same steps.
@@ -270,7 +271,7 @@ sub ask_from_normalize {
#- don't display empty lists and one element lists
@$l = grep {
- if ($_->{list} && $_->{not_edit}) {
+ if ($_->{list} && $_->{not_edit} && !$_->{allow_empty_list}) {
if (@{$_->{list}} == ()) {
eval {
require log;