From e1835b337f7abea2dd49c831eb7403edd3d15ca8 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 16 Feb 2001 16:06:31 +0000 Subject: wireless eth support corrected. --- perl-install/network.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network.pm b/perl-install/network.pm index 27cdd21d8..4b78c2e19 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -321,7 +321,7 @@ notation (for example, 1.2.3.4)."); [ { label => _("IP address"), val => \$intf->{IPADDR} }, { label => _("Netmask"), val => \$intf->{NETMASK} }, { label => _("Automatic IP"), val => \$pump, type => "bool", text => _("(bootp/dhcp)") }, -# if_(member($module, @wireless_modules), + if_($intf->{wireless_eth}, { label => "WIRELESS_MODE", val => \$intf->{WIRELESS_MODE}, list => [ "Ad-hoc", "Managed", "Master", "Repeater", "Secondary", "Auto"] }, { label => "WIRELESS_ESSID", val => \$intf->{WIRELESS_ESSID} }, { label => "WIRELESS_NWID", val => \$intf->{WIRELESS_NWID} }, @@ -334,7 +334,7 @@ notation (for example, 1.2.3.4)."); { label => "WIRELESS_IWCONFIG", val => \$intf->{WIRELESS_IWCONFIG} }, { label => "WIRELESS_IWSPY", val => \$intf->{WIRELESS_IWSPY} }, { label => "WIRELESS_IWPRIV", val => \$intf->{WIRELESS_IWPRIV} } - #), + ), ], complete => sub { $intf->{BOOTPROTO} = $pump ? "dhcp" : "static"; -- cgit v1.2.1