From 80eae188b2f743eeec437bdf916a1ca73726d1a4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 1 Oct 2008 15:19:45 +0000 Subject: (chooseGroups) switch from ask_from() to ask_from_() --- perl-install/install/steps_interactive.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 3232fd92f..8340a44b6 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -598,9 +598,10 @@ sub chooseGroups { my $docs = !$o->{excludedocs}; my $minimal; - $o->ask_from(N("Type of install"), - N("You have not selected any group of packages. + $o->ask_from_({ title => N("Type of install"), + message =>N("You have not selected any group of packages. Please choose the minimal installation you want:"), + }, [ { val => \$o->{rpmsrate_flags_chosen}{CAT_X}, type => 'bool', text => N("With X"), disabled => sub { $minimal } }, { val => \$docs, type => 'bool', text => N("With basic documentation (recommended!)"), disabled => sub { $minimal } }, -- cgit v1.2.1