From c53ad98c834d6695504772425e4bc04e6c88f779 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 22 Jul 2005 04:09:01 +0000
Subject: use has_wireless

---
 perl-install/standalone/net_applet | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 53bdd8b74..35ff6df67 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -12,6 +12,7 @@ use mygtk2 qw(gtknew);
 use dbus_object;
 use network::activefw;
 use network::monitor;
+use detect_devices;
 
 use Gtk2::TrayIcon;
 
@@ -247,7 +248,7 @@ sub generate_menu {
     };
 
     my (@settings, @actions);
-    my $has_wireless = keys %wireless_networks;
+    my $has_wireless = detect_devices::has_wireless();
 
     if ($state_type eq 'connected') {
         push @actions, $create_item->($_) foreach qw(downNetwork monitorNetwork);
-- 
cgit v1.2.1