only list wireless capabale cards when one choose wireless cnx

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] };