From 7b470feb8d04c53322891dd834d86a7480e68a81 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 27 Mar 2001 12:27:08 +0000 Subject: (setPackages): default profiles selection to GNOME, KDE, CONFIG --- perl-install/install_any.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ac8e18582..3876cff74 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -321,6 +321,12 @@ sub setPackages { if ($::auto_install && !$o->{compssUsersChoice}) { $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}{flags}} } @{$o->{compssUsersSorted}}; } + if (!$::auto_install) { + #- by default, choose: + $o->{compssUsersChoice}{$_} = 1 foreach 'GNOME', 'KDE', 'CONFIG'; + $o->{compssUsersChoice}{$_} = 1 + foreach map { @{$o->{compssUsers}{$_}{flags}} } 'Workstation|Office Workstation', 'Workstation|Internet station'; + } $o->{compssUsersChoice}{TV} = 1 if grep { $_->{driver} eq 'bttv' } detect_devices::probeall(); $o->{compssUsersChoice}{SYSTEM} = 1; $o->{compssUsersChoice}{BURNER} = 1 if detect_devices::burners(); @@ -341,7 +347,7 @@ sub setPackages { pkgs::packageByName($o->{packages}, "locales-$_") or next; push @{$o->{default_packages}}, "locales-$_"; } - foreach (lang::langs($o->{langs})) { + foreach (lang::langsLANGUAGE($o->{langs})) { $o->{compssUsersChoice}{qq(LOCALES"$_")} = 1; } #- for the first time, select package to upgrade. -- cgit v1.2.1