diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-06-22 23:36:32 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-06-22 23:36:32 +0000 |
| commit | 70e1a3e8ee7bbb46c5f04a696732558ab0f78699 (patch) | |
| tree | c04f513f56cfe9e61169b578e956e703004151f8 | |
| parent | 0b6436386f81876795ccebc1d51739d1bd741b8e (diff) | |
Also sort by nick if reliablity is the same
a day is a day now
| -rw-r--r-- | Echolot/Stats.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 142a4b2..8907034 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Stats.pm,v 1.5 2002/06/20 04:29:06 weasel Exp $ +# $Id: Stats.pm,v 1.6 2002/06/22 23:36:32 weasel Exp $ # =pod @@ -22,7 +22,7 @@ use warnings; use Carp qw{cluck}; use constant DAYS => 12; -use constant SECS_PER_DAY => 3 * 60 * 60; +use constant SECS_PER_DAY => 24 * 60 * 60; #use constant DAYS => 12; #use constant SECS_PER_DAY => 24 * 60 * 60; @@ -372,7 +372,8 @@ sub build_rems($) { my @rems = sort { - - ($a->{'stats'}->{'avr_reliability'} <=> $b->{'stats'}->{'avr_reliability'}) + - ($a->{'stats'}->{'avr_reliability'} <=> $b->{'stats'}->{'avr_reliability'}) || + ($a->{'nick'} cmp $b->{'nick'}) } map { $rems{$_} } keys %rems; return \@rems; |