From 761836c18a7f14cd05eb02eb020f477b10d96f89 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 11 Sep 2003 21:33:23 +0000 Subject: if some module has no parameter, instead of not displaying the config window, show that there's no parameters to configure --- perl-install/modules/interactive.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') 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) { -- cgit v1.2.1