diff options
| -rw-r--r-- | perl-install/steps.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/steps.pm b/perl-install/steps.pm index 162bc6d57..ceeac3944 100644 --- a/perl-install/steps.pm +++ b/perl-install/steps.pm @@ -2,11 +2,10 @@ package steps; use strict; use vars qw(%installSteps @orderedInstallSteps); -use common; -#-###################################################################################### -#- Steps table -#-###################################################################################### + + +use common; { my @installStepsFields = qw(text redoable onError hidden needs icon); #entered reachable toBeDone next done; @@ -22,16 +21,17 @@ use common; choosePackages => [ __("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions", 'partition' ], installPackages => [ __("Install system"), 1, -1, '', ["formatPartitions", "selectInstallClass"], '' ], setRootPassword => [ __("Set root password"), 1, 1, '', "installPackages", 'rootpasswd' ], - addUser => [ __("Add a user"), 1, 1, '', "installPackages", 'user' ], +# addUser => [ __("Add a user"), 1, 1, '', "installPackages", 'user' ], configureNetwork => [ __("Configure networking"), 1, 1, '', "formatPartitions", 'network' ], - summary => [ __("Summary"), 1, 0, '', "installPackages", 'summary' ], - configureServices => [ __("Configure services"), 1, 1, '!$::expert', "installPackages", 'services' ], + configureCluster => [ __("Configure cluster"), 1, 1, '', "configureNetwork", 'network' ], +# summary => [ __("Summary"), 1, 0, '', "installPackages", 'summary' ], +# configureServices => [ __("Configure services"), 1, 1, '!$::expert', "installPackages", 'services' ], setupBootloader => [ __("Install bootloader"), 1, 0, '', "installPackages", 'bootloader' ], if_((arch() !~ /alpha/) && (arch() !~ /ppc/), createBootdisk => [ __("Create a bootdisk"), 1, 0, '', "installPackages", 'bootdisk' ], ), configureX => [ __("Configure X"), 1, 1, '', ["formatPartitions", "setupBootloader"], 'X' ], - installUpdates => [ __("Install system updates"), 1, 1, '', ["installPackages", "configureNetwork", "summary"], '' ], + installUpdates => [ __("Install system updates"), 1, 1, '', ["installPackages", "configureNetwork"], '' ], exitInstall => [ __("Exit install"), 0, 0, '!$::expert && !$::live', '', 'exit' ], ); for (my $i = 0; $i < @installSteps; $i += 2) { |