From 0c1233317fb699e800d109160a11ff79b3d07dfc Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Fri, 22 Feb 2008 17:15:01 +0000
Subject: fixed ordering overview vs menu

---
 lib/Smokeping.pm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'lib')

diff --git a/lib/Smokeping.pm b/lib/Smokeping.pm
index f582263..11b896c 100644
--- a/lib/Smokeping.pm
+++ b/lib/Smokeping.pm
@@ -600,15 +600,10 @@ sub target_menu($$$$;$){
     my $print;
     my $current =  shift @{$open} || "";
     my @hashes;
-    if (not defined $tree->{_order}){
-        foreach my $prop ( sort grep { ref $tree->{$_} eq 'HASH' and  not /^__/} keys %{$tree}) {
-            push @hashes, $prop;
-        }
-    } else {
-        foreach my $prop (sort { $tree->{$a}{_order} <=> $tree->{$b}{_order}}
-                           grep { ref $tree->{$_} eq 'HASH' } keys %{$tree}) {
+    foreach my $prop (sort {$tree->{$a}{_order} ? ($tree->{$a}{_order} <=> $tree->{$b}{_order}) : ($a cmp $b)} 
+                      grep {  ref $tree->{$_} eq 'HASH' and not /^__/ }
+                      keys %$tree) {
             push @hashes, $prop;
-        }
     }
     return wantarray ? () : "" unless @hashes;
 
-- 
cgit v1.2.3-24-g4f1b