From e7f83e4b1a218c74e017dbc4ab9b67e5cf1fcd38 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 5 Oct 2007 13:26:24 +0000
Subject: drakroam: use same sort function than draknetcenter

---
 lib/network/connection_manager.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'lib/network/connection_manager.pm')

diff --git a/lib/network/connection_manager.pm b/lib/network/connection_manager.pm
index cd9de78..a7bac80 100644
--- a/lib/network/connection_manager.pm
+++ b/lib/network/connection_manager.pm
@@ -216,6 +216,14 @@ sub select_network {
     update_on_status_change($droam);
 }
 
+sub filter_networks {
+    my ($connection) = @_;
+    $_->{configured} = $connection->network_is_configured($_) foreach values %{$connection->{networks}};
+    sort {
+        $b->{configured} <=> $a->{configured} || $b->{signal_strength} <=> $a->{signal_strength} || $a->{name} cmp $b->{name};
+    } values %{$connection->{networks}};
+}
+
 sub update_networks {
     my ($cmanager) = @_;
     @{$cmanager->{gui}{networks_list}{data}} = ();
@@ -231,8 +239,7 @@ sub update_networks {
         my $interface = $cmanager->{connection}->get_interface;
         my $connected = exists $routes->{$interface}{network};
 
-        my @networks = values %{$cmanager->{connection}{networks}};
-        $cmanager->{filter_networks} and @networks = $cmanager->{filter_networks}(@networks);
+        my @networks = filter_networks($cmanager->{connection});
         foreach my $network (@networks) {
             my $ap = $network->{ap};
             push @{$cmanager->{gui}{networks_list}{data}}, [
-- 
cgit v1.2.1