diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-11-06 21:01:33 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-11-06 21:01:33 +0000 |
| commit | 96510efce15225384a474e81ef2ea91d1ae3a4ee (patch) | |
| tree | 455a0d5c8b5608feca688cd0dd4c1c8a00f3760e /perl-install/install_steps_interactive.pm | |
| parent | d1669f4149dc25492055bca8fd2f14dc47387114 (diff) | |
| download | drakx-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.pm | 11 |
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) = @_; |