diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 966cf5d1d..ca6b17c00 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -592,7 +592,8 @@ notation (for example, 1.2.3.4).")), $ethntf->{HWADDR} = $track_network_id or delete $ethntf->{HWADDR}; $in->do_pkgs->install($netcnx->{dhcp_client}) if $auto_ip; - #FIXME "wireless" if $ethntf->{wireless_eth}; + + return "wireless" if is_wireless_intf($module); return "static_hostname"; }, }, @@ -600,12 +601,10 @@ notation (for example, 1.2.3.4).")), wireless => { pre => sub { - if (is_wireless_intf($module)) { - $ethntf->{wireless_eth} = 1; - $netc->{wireless_eth} = 1; - $ethntf->{WIRELESS_MODE} = "Managed"; - $ethntf->{WIRELESS_ESSID} = "any"; - } + $ethntf->{wireless_eth} = 1; + $netc->{wireless_eth} = 1; + $ethntf->{WIRELESS_MODE} = "Managed"; + $ethntf->{WIRELESS_ESSID} = "any"; }, name => N("Please enter the wireless parameters for this card:"), data => [ @@ -667,6 +666,7 @@ See iwpriv(8) man page for further information."), post => sub { # untranslate parameters $ethntf->{WIRELESS_MODE} = $wireless_mode{$ethntf->{WIRELESS_MODE}}; + return "static_hostname"; }, }, |