From c40b2c2150a6e125956b09ddd3a4ee581bf4877b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Mar 2002 11:39:58 +0000 Subject: - fix the setting of compssUsersChoices in auto_install when it is empty - set the default compssUsersChoices adapted to the server meta_class --- perl-install/install_any.pm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 6ca56b3ca..d78b955e2 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -344,15 +344,19 @@ sub setDefaultPackages { #- if no cleaning needed, populate by default, clean is used for second or more call to this function. unless ($clean) { - if ($::auto_install && $o->{compssUsersChoice}{ALL}) { + if ($::auto_install && ($o->{compssUsersChoice} || {})->{ALL}) { $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}{flags}} } @{$o->{compssUsersSorted}}; } if (!$o->{compssUsersChoice} && !$o->{isUpgrade}) { #- by default, choose: - $o->{compssUsersChoice}{$_} = 1 foreach 'GNOME', 'KDE', 'CONFIG', 'X'; - $o->{lang} eq 'eu_ES' and $o->{compssUsersChoice}{KDE} = 0; - $o->{compssUsersChoice}{$_} = 1 - foreach map { @{$o->{compssUsers}{$_}{flags}} } 'Workstation|Office Workstation', 'Workstation|Internet station'; + if ($o->{meta_class} eq 'server') { + $o->{compssUsersChoice}{$_} = 1 foreach 'X', 'MONITORING', 'NETWORKING_REMOTE_ACCESS_SERVER'; + } else { + $o->{compssUsersChoice}{$_} = 1 foreach 'GNOME', 'KDE', 'CONFIG', 'X'; + $o->{lang} eq 'eu_ES' and $o->{compssUsersChoice}{KDE} = 0; + $o->{compssUsersChoice}{$_} = 1 + foreach map { @{$o->{compssUsers}{$_}{flags}} } 'Workstation|Office Workstation', 'Workstation|Internet station'; + } } } $o->{compssUsersChoice}{uc($_)} = 1 foreach grep { modules::get_that_type($_) } ('tv', 'scanner', 'photo', 'sound'); -- cgit v1.2.1