From 86801afe7975649afc27ae78c1f5d68b378992f4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 4 Aug 2001 12:38:18 +0000
Subject: create a new flags "X" selected by default, contain what X related
 packages which were in "SYSTEM"

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 293dc20c1..b76941b94 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -362,6 +362,7 @@ sub setPackages {
 	$o->{compssUsersChoice}{uc($_)} = 1 foreach grep { modules::get_that_type($_) } ('tv', 'scanner', 'photo', 'sound');
 	$o->{compssUsersChoice}{uc($_)} = 1 foreach map { $_->{driver} =~ /Flag:(.*)/ } detect_devices::probeall();
 	$o->{compssUsersChoice}{SYSTEM} = 1;
+	$o->{compssUsersChoice}{X} = 1 if !$::auto_install;
 	$o->{compssUsersChoice}{BURNER} = 1 if detect_devices::burners();
 	$o->{compssUsersChoice}{DVD} = 1 if detect_devices::dvdroms();
 	$o->{compssUsersChoice}{PCMCIA} = 1 if detect_devices::hasPCMCIA();
-- 
cgit v1.2.1