diff options
| -rwxr-xr-x | bin/showcouncilrates | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/bin/showcouncilrates b/bin/showcouncilrates index fff3d11d8..cdfc26ce3 100755 --- a/bin/showcouncilrates +++ b/bin/showcouncilrates @@ -7,6 +7,7 @@ use FindBin; use lib "$FindBin::Bin/../perllib"; use lib "$FindBin::Bin/../commonlib/perllib"; +use POSIX qw(strcoll); use mySociety::DBHandle qw(dbh); use mySociety::MaPit; @@ -65,5 +66,6 @@ sub sort_councils { my $retval = ($adminfixed{$b} / $adminsum{$b}) <=> ($adminfixed{$a} / $adminsum{$a}); $retval = $adminsum{$b} <=> $adminsum{$a} unless $retval; + $retval = strcoll($a, $b) unless $retval; return $retval; } |