sort by registered attendees then committed attendees

book · Jan 11, 2012 · 63ac4d8 · 63ac4d8
1 parent cfc0408
commit 63ac4d8
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/lib/Act/Handler/User/Stats.pm b/lib/Act/Handler/User/Stats.pm
@@ -46,16 +46,20 @@ sub handler {
     }
 
     # sort the towns for each country
-    $towns->{$_} =
+    $towns->{$_} = [ sort { $b->{count} <=> $a->{count}
-      [ sort { $b->{count} <=> $a->{count} } values %{ $towns->{$_} } ]
+                         || $b->{committed} <=> $a->{committed}
+                     } values %{ $towns->{$_} } ]
       for keys %$towns;
 
     # update the stats information
     $stats->{users}     = scalar @$users;
-    $stats->{countries} =
+    $stats->{countries} = [ sort { $b->{count}     <=> $a->{count}
-      [ sort { $b->{count} <=> $a->{count} } values %$countries ];
+                                || $b->{committed} <=> $a->{committed}
+                            } values %$countries ];
     $stats->{towns} = $towns;
-    $stats->{pm}    = [ sort { $b->{count} <=> $a->{count} } values %$pm ];
+    $stats->{pm}    = [ sort { $b->{count} <=> $a->{count}
+                            || $b->{committed} <=> $a->{committed}
+                        } values %$pm ];
 
     my $template = Act::Template::HTML->new();
     $template->variables( stats => $stats );