From 8d4516ae4290aeb3855804b1c74f4ae6fefe903e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 14 Sep 1999 23:51:45 +0000 Subject: no_comment --- perl-install/install_steps_interactive.pm | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d44fcb69b..557215229 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -521,16 +521,18 @@ sub setupBootloader($) { lilo::proposition($o->{hds}, $o->{fstab}); - my @entries = grep { $_->{liloLabel} } @{$o->{fstab}}; - - $o->ask_from_entries_ref('', - _("The boot manager Mandrake uses can boot other - operating systems as well. You need to tell me - what partitions you would like to be able to boot - and what label you want to use for each of them."), - [map {"$_->{device}" . type2name($_->{type})} @entries], - [map {\$_->{liloLabel}} @entries], - ); + unless ($::beginner) { + my @entries = grep { $_->{liloLabel} } @{$o->{fstab}}; + + $o->ask_from_entries_ref('', +_("The boot manager Mandrake uses can boot other +operating systems as well. You need to tell me +what partitions you would like to be able to boot +and what label you want to use for each of them."), + [map {"$_->{device}" . type2name($_->{type})} @entries], + [map {\$_->{liloLabel}} @entries], + ); + } install_steps::setupBootloader($o); } -- cgit v1.2.1