diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-22 22:34:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-22 22:34:54 +0000 |
| commit | 4db7377ccd7434b49679eb2ca8188174d5891402 (patch) | |
| tree | d9ded8629383fd82633d353913a5c259dc4945f0 /perl-install | |
| parent | 68f8fc470b9d97ab209ab6d106a2efd7b4df83dd (diff) | |
| download | drakx-backup-do-not-use-4db7377ccd7434b49679eb2ca8188174d5891402.tar drakx-backup-do-not-use-4db7377ccd7434b49679eb2ca8188174d5891402.tar.gz drakx-backup-do-not-use-4db7377ccd7434b49679eb2ca8188174d5891402.tar.bz2 drakx-backup-do-not-use-4db7377ccd7434b49679eb2ca8188174d5891402.tar.xz drakx-backup-do-not-use-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')
| -rw-r--r-- | perl-install/interactive.pm | 5 |
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; |