From b4955db27bf8703e7088da788a9f15c0c96ae2a4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 16 Jan 2003 12:43:36 +0000 Subject: ask security level in every install --- perl-install/install_steps_interactive.pm | 7 +++---- perl-install/steps.pm | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index a2be95bc5..6027828b7 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1108,10 +1108,9 @@ try to force installation even if that destroys the first partition?")); sub miscellaneous { my ($o, $_clicked) = @_; - if ($::expert) { - require security::level; - security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user}) or return; - } + require security::level; + security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user}) or return; + install_steps::miscellaneous($o); } diff --git a/perl-install/steps.pm b/perl-install/steps.pm index 97aa2de35..d1718aa55 100644 --- a/perl-install/steps.pm +++ b/perl-install/steps.pm @@ -16,7 +16,7 @@ use common; setupSCSI => [ N_("Hard drive detection"), 1, 0, '', '', 'harddrive' ], selectInstallClass => [ N_("Select installation class"), 1, 1, '', '', '' ], selectKeyboard => [ N_("Choose your keyboard"), 1, 1, '', "selectInstallClass", 'keyboard' ], - miscellaneous => [ N_("Security"), 1, 1, '!$::expert', '', 'security' ], + miscellaneous => [ N_("Security"), 1, 1, '', '', 'security' ], doPartitionDisks => [ N_("Setup filesystems"), 1, 0, '', "selectInstallClass", 'partition' ], formatPartitions => [ N_("Format partitions"), 1, -1, '$o->{isUpgrade}', "doPartitionDisks", 'partition' ], choosePackages => [ N_("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions", 'partition' ], -- cgit v1.2.1