From eae0589a5d1a157f042fc734aa2189ee7105f385 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 21 Jan 2002 20:31:49 +0000
Subject: cleanup, update, enhance security level choice

---
 perl-install/install_steps_interactive.pm | 15 +++++----------
 1 file changed, 5 insertions(+), 10 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 b174ac857..f4f68f592 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1236,16 +1236,11 @@ try to force installation even if that destroys the first partition?"));
 
 sub miscellaneous {
     my ($o, $clicked) = @_;
-    my %l = (
-	2 => _("Low"),
-	3 => _("Medium"),
-	4 => _("High"),
-    );
-    if ($::expert || $clicked) {
-	$ENV{SECURE_LEVEL} = $o->{security} = 
-	  $o->ask_from_listf('', _("Choose security level"), sub { $l{$_[0]} }, [ ikeys %l ], $o->{security})
-	    or return;
-    }
+
+    any::choose_security_level($o, \$o->{security}, \$o->{libsafe}) or return;
+
+    any::config_libsafe($o->{prefix}, $o->{libsafe});
+    
     install_steps::miscellaneous($o);
 }
 
-- 
cgit v1.2.1