From c231a43106143e04ad0cb7f2542723cfec66777d Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 14 Aug 2001 14:36:07 +0000 Subject: - fix choice of packages when auto install --- perl-install/install_any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 9373a1bb6..5c2c9afa6 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -350,10 +350,10 @@ sub setPackages { pkgs::read_rpmsrate($o->{packages}, getFile("Mandrake/base/rpmsrate")); ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{meta_class}); - if ($::auto_install && !$o->{compssUsersChoice}) { + if ($::auto_install && !$o->{interactive} && !$o->{compssUsersChoice}) { $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}{flags}} } @{$o->{compssUsersSorted}}; } - if (!$::auto_install && !$o->{isUpgrade}) { + if ($o->{interactive} && !$o->{isUpgrade}) { #- by default, choose: $o->{compssUsersChoice}{$_} = 1 foreach 'GNOME', 'KDE', 'CONFIG'; $o->{compssUsersChoice}{$_} = 1 @@ -362,7 +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}{X} = 1 if !$o->{interactive}; $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