summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-29 14:13:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-29 14:13:47 +0000
commitec5cc80aff948eceee5b322bc19cf3e4e65a7c3a (patch)
treeb351a5b996899f440d24f6f04fab18f9d8a57efb /perl-install/install_steps_interactive.pm
parent59d92e68854412a0ad81ec287e6c44a583bce140 (diff)
downloaddrakx-ec5cc80aff948eceee5b322bc19cf3e4e65a7c3a.tar
drakx-ec5cc80aff948eceee5b322bc19cf3e4e65a7c3a.tar.gz
drakx-ec5cc80aff948eceee5b322bc19cf3e4e65a7c3a.tar.bz2
drakx-ec5cc80aff948eceee5b322bc19cf3e4e65a7c3a.tar.xz
drakx-ec5cc80aff948eceee5b322bc19cf3e4e65a7c3a.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 213347628..5b616bd2c 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -524,7 +524,7 @@ depending on the normal bootloader. This is useful if you don't want to install
lilo on your system, or another operating system removes lilo, or lilo doesn't
work with your hardware configuration. A custom bootdisk can also be used with
the Mandrake rescue image, making it much easier to recover from severe system
-failures. Would you like to create a bootdisk for your system?"), !$o->{mkbootdisk}) or return;
+failures. Would you like to create a bootdisk for your system?"), $o->{mkbootdisk}) or return;
$o->{mkbootdisk} = $l[0] if !$o->{mkbootdisk} || $o->{mkbootdisk} eq "1";
} else {
@l or die _("Sorry, no floppy drive available");
@@ -561,7 +561,7 @@ sub setupBootloader {
_("Where do you want to install the bootloader?"),
\@l, $l[!$onmbr]) eq $l[0];
} else {
- $::expert and $o->ask_yesorno('', _("Do you want to use lilo?")) || return;
+ $::expert and $o->ask_yesorno('', _("Do you want to use lilo?"), 1) || return;
my @l = (
_("Boot device") => { val => \$b->{boot}, list => [ map { "/dev/$_->{device}" } @{$o->{hds}}, @{$o->{fstab}} ], not_edit => !$::expert },
@@ -708,7 +708,7 @@ For example you can have ``io=0x300 irq=7''", $l),
if ($@) {
$o->ask_yesorno('',
_("Loading of module %s failed
-Do you want to try again with other parameters?", $l)) or return;
+Do you want to try again with other parameters?", $l), 1) or return;
goto ASK;
}
$l, $m;
@@ -729,7 +729,7 @@ sub load_thiskind {
#------------------------------------------------------------------------------
sub setup_thiskind {
my ($o, $type, $auto, $at_least_one) = @_;
- my @l = $o->load_thiskind($type) unless $::expert && $o->ask_yesorno('', "Skip $type pci probe", 0);
+ my @l = $o->load_thiskind($type) unless $::expert && $o->ask_yesorno('', _("Skip %s pci probe", $type), 1);
return if $auto && (@l || !$at_least_one);
while (1) {
my $msg = @l ?