From c15a46344c522ee0726ee8855f98181c008cb414 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 14 Feb 2003 14:10:18 +0000
Subject: add "Security level" in summary

---
 perl-install/install_steps_interactive.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(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 ae16e79d0..d7152f24b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -962,6 +962,20 @@ sub summary {
 	},
     };
 
+    push @l, {
+	group => N("Security"),
+	label => N("Security Level"),
+	val => sub { 
+	    require security::level;
+	    security::level::to_string($o->{security});
+	},
+	clicked => sub {
+	    require security::level;
+	    security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user})
+		and install_any::set_security($o);
+	},
+    };
+
     push @l, {
 	group => N("Security"),
 	label => N("Firewall"),
-- 
cgit v1.2.1