# HG changeset patch
# User Dominic Cleal <dominic@computerkb.co.uk>
# Date 1233161031 0
# Node ID 964393fff57ec6d700a8d0032f4971b4cba2eb77
# Parent  783d0f95492741f8723e3f95774998bc7b0a237a
Case insensitive sorting to match game

diff -r 783d0f954927 -r 964393fff57e reproctool.cgi
--- 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 => $_ } );