From bed52c9b16c8329cf4e1ce13f11ca41d09f05d4a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 4 Sep 1999 20:29:24 +0000
Subject: no_comment

---
 perl-install/install2.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 4b1c2bdad..e7e36a765 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -357,7 +357,7 @@ sub selectLanguage {
 #------------------------------------------------------------------------------
 sub selectKeyboard {
     my ($clicked) = $_[0];
-    return if $o->{installClass} eq "beginner" && !$clicked;
+    return if $::beginner && !$clicked;
 
     $o->selectKeyboard;
     #if we go back to the selectKeyboard, you must rewrite
@@ -378,7 +378,8 @@ sub selectPath {
 sub selectInstallClass {
     $o->selectInstallClass(@install_classes);
 
-    $::expert = $o->{installClass} eq "expert";
+    $::expert   = $o->{installClass} eq "expert";
+    $::beginner = $o->{installClass} eq "beginner";
     $o->{partitions} = $suggestedPartitions{$o->{installClass}};
 
     addToBeDone {
@@ -389,7 +390,7 @@ sub selectInstallClass {
 #------------------------------------------------------------------------------
 sub setupSCSI {
     my ($clicked) = $_[0];
-    $o->{autoSCSI} ||= $o->{installClass} eq "beginner";
+    $o->{autoSCSI} ||= $::beginner;
 
     $o->setupSCSI($o->{autoSCSI} && !$clicked);
 }
-- 
cgit v1.2.1