From 44244310d94110b989de92f7e3f84049b6ae2a6d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Apr 2001 13:11:34 +0000 Subject: (setPackages): better handling for tv, photo and scanner --- perl-install/install_any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index c24674044..e4ab24928 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -329,8 +329,8 @@ sub setPackages { $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}{$_} = 1 foreach map { $_->{driver} =~ /Flag:(.*)/ } detect_devices::probeall(); + $o->{compssUsersChoice}{uc($_)} = 1 foreach grep { modules::get_that_type($_) } ('tv', 'scanner', 'photo'); + $o->{compssUsersChoice}{uc($_)} = 1 foreach map { $_->{driver} =~ /Flag:(.*)/ } detect_devices::probeall(); $o->{compssUsersChoice}{SYSTEM} = 1; $o->{compssUsersChoice}{BURNER} = 1 if detect_devices::burners(); $o->{compssUsersChoice}{PCMCIA} = 1 if detect_devices::hasPCMCIA(); -- cgit v1.2.1