fixed ordering overview vs menu

1 files changed, 3 insertions, 8 deletions

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;