From 07cfbe49efa16539739dbb312ebe81ab2c81b87d Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 25 Sep 2000 16:22:18 +0000 Subject: *** empty log message *** --- perl-install/install_steps_interactive.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (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 af26cb58c..c0dfe4308 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -101,7 +101,7 @@ sub selectInstallClass1 { my ($o, $verif, $l, $def, $l2, $def2) = @_; $verif->($o->ask_from_list(_("Install Class"), _("Which installation class do you want?"), $l, $def)); - $::live or $o->ask_from_list_(_("Install/Rescue"), _("Is this an install or a rescue?"), $l2, $def2); + $::live ? 'Rescue' : $o->ask_from_list_(_("Install/Rescue"), _("Is this an install or a rescue?"), $l2, $def2); } #------------------------------------------------------------------------------ @@ -134,6 +134,7 @@ are you ready to answer that kind of questions?"), first(list2kv(@c)), ${{reverse %c}}{$::beginner ? "beginner" : $::expert ? "expert" : "specific"}, [ __("Install"), __("Rescue") ], $o->{isUpgrade} ? "Rescue" : "Install") eq "Rescue"; + print STDERR "isUpgrade=$o->{isUpgrade}\n"; if ($::corporate || $::beginner) { delete $o->{installClass}; } else { -- cgit v1.2.1