changeset 47:964393fff57e

Case insensitive sorting to match game
author Dominic Cleal <dominic@computerkb.co.uk>
date Wed, 28 Jan 2009 16:43:51 +0000
parents 783d0f954927
children 9c55ad1214ee
files reproctool.cgi
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/reproctool.cgi	Sun Jan 25 21:33:39 2009 +0000
+++ b/reproctool.cgi	Wed Jan 28 16:43:51 2009 +0000
@@ -251,7 +251,7 @@
 }
 
 # Now match up the item lookups to the input list
-foreach (sort @item_names)
+foreach (sort { lc $a cmp lc $b } @item_names)
 {
     push @output, (exists $item_lookup->{$_} ? $item_lookup->{$_}
                                              : { name => $_ } );