From 262903f3d6dc8c5b245ba4931a0f3cf55c6f915b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Apr 2000 23:08:50 +0000 Subject: no_comment --- perl-install/any.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index a5dd80f64..bfd8fc9ad 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -7,7 +7,7 @@ use vars qw(@users); #-###################################################################################### #- misc imports #-###################################################################################### -use common qw(:common :system :file); +use common qw(:common :system :file :functional); use commands; use detect_devices; use fsedit; @@ -69,7 +69,11 @@ sub setupBootloader { } elsif ($more || !$::beginner) { $in->set_help("setupBootloaderGeneral") unless $::isStandalone; - $::expert and $in->ask_yesorno('', _("Do you want to use LILO?"), 1) || return; + my @m = keys %{$b->{methods}}; + $::expert and $in->ask_many_from_list_ref('', _("Which bootloader(s) do you want to use?"), + [ @m ], [ map { \$b->{methods}{$_} } @m ]) || return; + #- at least one method + grep_each { $::b } %{$b->{methods}} or return; my @l = ( _("Boot device") => { val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } @$hds, @$fstab), detect_devices::floppies() ], not_edit => !$::expert }, -- cgit v1.2.1