From 4b4f9f315bc66a6ba4db04e8cdebcccee398f40b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 30 May 2005 11:00:55 +0000
Subject: move netprofile stuff in network::network

---
 perl-install/standalone/net_applet | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 8f81d72b5..53c42f62c 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -81,11 +81,11 @@ my %actions = (
                },
                'chooseProfile' => {
                    name => N("Profiles"),
-                   choices => sub { network::netconnect::get_profiles() },
-                   choice_selected => sub { $_[0] eq $netcnx->{PROFILE} },
+                   choices => sub { network::network::netprofile_list()) },
+                   choice_selected => sub { $_[0] eq $netc->{PROFILE} },
                    launch => sub {
-                       $netcnx->{PROFILE} = $_[0];
-                       network::tools::bg_command_as_root('/sbin/set-netprofile', $netcnx->{PROFILE});
+                       $netc->{PROFILE} = $_[0];
+                       network::tools::bg_command_as_root('/sbin/set-netprofile', $netc->{PROFILE});
                    }
                },
 	       'refresh' => { name => N("Refresh"), launch => sub { checkNetworkForce() } },
-- 
cgit v1.2.1