diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-20 12:36:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-20 12:36:37 +0000 |
| commit | 56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd (patch) | |
| tree | eb38202994e13fa1b45ad115db0d73ac7aaec88f /perl-install/install_steps_interactive.pm | |
| parent | 70c400f9a433cb7139c3c30e3cd8aaf350613483 (diff) | |
| download | drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar.gz drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar.bz2 drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.tar.xz drakx-backup-do-not-use-56c1b0d4fe9f5a9908827a51b22fa53dd0265bbd.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index f57a0f152..59b92f90b 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -118,13 +118,12 @@ sub rebootNeeded($) { sub choosePartitionsToFormat($$) { my ($o, $fstab) = @_; - install_steps::choosePartitionsToFormat($o, $fstab); + $o->SUPER::choosePartitionsToFormat($fstab); my @l = grep { $_->{mntpoint} && isExt2($_) || isSwap($_) && !$::beginner } @$fstab; - my @r = $o->ask_many_from_list_ref('', _("Choose the partitions you want to format"), - [ map { $_->{mntpoint} || type2name($_->{type}) . " ($_->{device})" } @l ], - [ map { \$_->{toFormat} } @l ]); - defined @r or die "cancel"; + $o->ask_many_from_list_ref('', _("Choose the partitions you want to format"), + [ map { $_->{mntpoint} || type2name($_->{type}) . " ($_->{device})" } @l ], + [ map { \$_->{toFormat} } @l ]) or die "cancel"; } sub formatPartitions { @@ -543,7 +542,7 @@ sub setupBootloader($) { $l[!$o->{bootloader}{onmbr}] ) eq $l[0] unless $::beginner && $o->{bootloader}{onmbr}; - lilo::proposition($o->{hds}, $o->{fstab}, $o->{bootloader}); + lilo::suggest($o->{hds}, $o->{fstab}, $o->{bootloader}); unless ($::beginner) { my @entries = grep { $_->{liloLabel} } @{$o->{fstab}}; @@ -647,7 +646,7 @@ sub setup_thiskind { my $opt = [ __("Yes"), __("No") ]; push @$opt, __("See hardware info") if $::expert; my $r = "Yes"; - $r = $o->ask_from_list_('', $msg, $opt) unless $at_least_one && @l == 0; + $r = $o->ask_from_list_('', $msg, $opt, "No") unless $at_least_one && @l == 0; if ($r eq "No") { return } elsif ($r eq "Yes") { my @r = $o->loadModule($type) or return; |