Improve sorting.

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;
 }