From cce64800763ebd83a5faf57a6556cded3a99da93 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Feb 2004 18:23:01 +0000 Subject: only list wireless capabale cards when one choose wireless cnx --- perl-install/network/netconnect.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 11a49c429..393140113 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -138,6 +138,13 @@ sub get_subwizard { modules::add_alias($card->[0], $card->[1]); } %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards; + if ($is_wireless) { + require list_modules; + my @wmodules = list_modules::category2modules('network/wireless'); + %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } grep { member($_->[1], @wmodules) } @all_cards; + } else { + %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards; + } }; my $find_lan_module = sub { $module ||= (find { $_->[0] eq $ethntf->{DEVICE} } @all_cards)->[1] }; -- cgit v1.2.1