summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-09-11 21:33:23 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-09-11 21:33:23 +0000
commit761836c18a7f14cd05eb02eb020f477b10d96f89 (patch)
tree4cf469add6c8850001bf2a6ff4bc8b2e39134f13 /perl-install
parentd1e011238cd2d2edaaf03376fd6c4a7acfdd2581 (diff)
downloaddrakx-761836c18a7f14cd05eb02eb020f477b10d96f89.tar
drakx-761836c18a7f14cd05eb02eb020f477b10d96f89.tar.gz
drakx-761836c18a7f14cd05eb02eb020f477b10d96f89.tar.bz2
drakx-761836c18a7f14cd05eb02eb020f477b10d96f89.tar.xz
drakx-761836c18a7f14cd05eb02eb020f477b10d96f89.zip
if some module has no parameter, instead of not displaying the config
window, show that there's no parameters to configure
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules/interactive.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm
index c6529da5c..1c1e3bba8 100644
--- a/perl-install/modules/interactive.pm
+++ b/perl-install/modules/interactive.pm
@@ -12,8 +12,12 @@ sub config_window {
my @l;
foreach (modules::parameters::parameters($data->{driver})) {
my ($name, $format, $description) = @$_;
- push @l, { label => $name, help => "$description\n[$format]", val => \$conf{$name} };
+ push @l, { label => $name, help => "$description\n[$format]", val => \$conf{$name}, allow_empty_list => 1 };
}
+ # BUG: once we've released mdk9.2 and unfreeze cooker, morph this
+ # into a proper error dialog with a nice error message (but
+ # for now we cannot due to string freeze :-()
+ @l = { label => N("Parameters"), help => "", val => N("NONE"), allow_empty_list => 1 } if -1 == $#l;
if ($in->ask_from(N("Module configuration"), N("You can configure each parameter of the module here."), \@l)) {
my $options = join(' ', map { if_($conf{$_}, "$_=$conf{$_}") } keys %conf);
if ($options) {