summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-02 18:23:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-02 18:23:01 +0000
commitcce64800763ebd83a5faf57a6556cded3a99da93 (patch)
tree61fb205cf75568a1b57ab708baa16c509c40064b /perl-install
parent41af9231786d47163b69b2726a273ec2ffaa5799 (diff)
downloaddrakx-backup-do-not-use-cce64800763ebd83a5faf57a6556cded3a99da93.tar
drakx-backup-do-not-use-cce64800763ebd83a5faf57a6556cded3a99da93.tar.gz
drakx-backup-do-not-use-cce64800763ebd83a5faf57a6556cded3a99da93.tar.bz2
drakx-backup-do-not-use-cce64800763ebd83a5faf57a6556cded3a99da93.tar.xz
drakx-backup-do-not-use-cce64800763ebd83a5faf57a6556cded3a99da93.zip
only list wireless capabale cards when one choose wireless cnx
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm7
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] };