diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-02 18:23:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-02 18:23:01 +0000 |
| commit | cce64800763ebd83a5faf57a6556cded3a99da93 (patch) | |
| tree | 61fb205cf75568a1b57ab708baa16c509c40064b /perl-install | |
| parent | 41af9231786d47163b69b2726a273ec2ffaa5799 (diff) | |
| download | drakx-cce64800763ebd83a5faf57a6556cded3a99da93.tar drakx-cce64800763ebd83a5faf57a6556cded3a99da93.tar.gz drakx-cce64800763ebd83a5faf57a6556cded3a99da93.tar.bz2 drakx-cce64800763ebd83a5faf57a6556cded3a99da93.tar.xz drakx-cce64800763ebd83a5faf57a6556cded3a99da93.zip | |
only list wireless capabale cards when one choose wireless cnx
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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] }; |