From 8d53eeac658e63e641b53ccffe33bc58ff9af55c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 Jan 2004 12:15:02 +0000 Subject: set connection type at one point only --- perl-install/network/netconnect.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 838909533..22df45e33 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -220,7 +220,7 @@ If you don't want to use the auto detection, deselect the checkbox. post => sub { load_conf($netcnx, $netc, $intf) if $::isInstall; # :-( get_subwizard($wiz, 'adsl') if $connections{$cnx_type} eq 'adsl'; - return $type = $connections{$cnx_type}; + return $type = $netcnx->{type} = $connections{$cnx_type}; }, }, @@ -286,7 +286,6 @@ If you don't want to use the auto detection, deselect the checkbox. [ { val => \$netcnx->{dhcp_client}, list => ["dhcp-client", "dhcpcd", "dhcpxd"] } ], post => sub { - $netcnx->{type} = $type = 'cable'; $in->do_pkgs->install($netcnx->{dhcp_client}); write_cnx_script($netc, "cable", qq( /sbin/ifup $netc->{NET_DEVICE} @@ -381,7 +380,6 @@ Take a look at http://www.linmodems.org"), { pre => sub { detect($netc->{autodetect}, 'modem') if !$::isInstall; - $netcnx->{type} = 'modem'; }, name => N("Select the modem to configure:"), data => sub { -- cgit v1.2.1