From 96510efce15225384a474e81ef2ea91d1ae3a4ee Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Sat, 6 Nov 1999 21:01:33 +0000
Subject: *** empty log message ***

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

(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 72468ffcc..609187640 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -97,17 +97,17 @@ sub selectRootPartition($@) {
 #------------------------------------------------------------------------------
 sub selectInstallClass($@) {
     my ($o, @classes) = @_;
-    my @c = qw(beginner specific expert);
+    my @c = qw(normal specific expert);
     my %c = (
-	     beginner  => _("Recommended"),
+	     normal    => _("Recommended"),
 	     specific  => _("Personalized"),
 	     expert    => _("Expert"),
 	    );
     my $installClass = ${{reverse %c}}{$o->ask_from_list(_("Install Class"),
 							 _("What installation class do you want?"),
-							 [ map { $c{$_} } @c ], $c{$o->{installClass}} || $c{beginner})};
+							 [ map { $c{$_} } @c ], $c{$o->{installClass}} || $c{normal})};
     $::expert   = $installClass eq "expert";
-    $::beginner = $installClass eq "beginner";
+    $::beginner = $installClass eq "normal";
 
     if ($::beginner) {
 	$o->{installClass} = $installClass;
@@ -184,6 +184,8 @@ sub rebootNeeded($) {
 
     install_steps::rebootNeeded($o);
 }
+
+#------------------------------------------------------------------------------
 sub choosePartitionsToFormat($$) {
     my ($o, $fstab) = @_;
 
@@ -211,6 +213,7 @@ sub formatPartitions {
 	}
     }
 }
+
 #------------------------------------------------------------------------------
 sub setPackages {
     my ($o) = @_;
-- 
cgit v1.2.1