summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-06 21:01:33 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-06 21:01:33 +0000
commit96510efce15225384a474e81ef2ea91d1ae3a4ee (patch)
tree455a0d5c8b5608feca688cd0dd4c1c8a00f3760e /perl-install/install_steps_interactive.pm
parentd1669f4149dc25492055bca8fd2f14dc47387114 (diff)
downloaddrakx-96510efce15225384a474e81ef2ea91d1ae3a4ee.tar
drakx-96510efce15225384a474e81ef2ea91d1ae3a4ee.tar.gz
drakx-96510efce15225384a474e81ef2ea91d1ae3a4ee.tar.bz2
drakx-96510efce15225384a474e81ef2ea91d1ae3a4ee.tar.xz
drakx-96510efce15225384a474e81ef2ea91d1ae3a4ee.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm11
1 files changed, 7 insertions, 4 deletions
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) = @_;