summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm11
-rwxr-xr-xperl-install/standalone/drakboot1
2 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4ca36a4e8..61075ed6d 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -89,10 +89,15 @@ sub setupBootloader {
require bootloader;
general:
- setupBootloader__general($in, $b, $all_hds, $fstab, $security) or return 0;
+ {
+ local $::Wizard_no_previous = 1 if $::isStandalone;
+ setupBootloader__general($in, $b, $all_hds, $fstab, $security) or return 0;
+ }
setupBootloader__boot_bios_drive($in, $b, $hds) or goto general;
-
- setupBootloader__entries($in, $b, $all_hds, $fstab) or goto general;
+ {
+ local $::Wizard_finished = 1 if $::isStandalone;
+ setupBootloader__entries($in, $b, $all_hds, $fstab) or goto general;
+ }
#- somewhere should bootloader really installed ?
$::isStandalone and my $_w = $in->wait_message(N("Please wait"), N("Bootloader installation in progress"));
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index e88f56ca4..7b26e0f1c 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -42,6 +42,7 @@ my $splash_working = any { /^--splash$/ } @ARGV;
my $in = 'interactive'->vnew('su');
if (!$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV) {
+ $::isWizard = 1;
lilo_choice();
$in->exit(0);
}