X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FInclude.pm;h=5ef1dbae143a5330f86313ff3c14f8d1a1dc80ac;hb=460231f1aba8ae3474a65b7927278ce229d81a25;hp=6916392aac0d37a8255574bc8455a9c3b2b24f24;hpb=d6c9085e748c4d61901aaea72f0e1546dcc7cdda;p=ndwebbie.git diff --git a/NDWeb/Include.pm b/NDWeb/Include.pm index 6916392..5ef1dba 100644 --- a/NDWeb/Include.pm +++ b/NDWeb/Include.pm @@ -17,7 +17,7 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * #**************************************************************************/ -package ND::Web::Include; +package NDWeb::Include; use strict; use warnings; use CGI qw{:standard}; @@ -66,7 +66,7 @@ sub alliances { my @alliances; $alliance = -1 unless defined $alliance; push @alliances,{Id => -1, Name => ' ', Selected => not $alliance}; - my $query = $ND::DBH->prepare(q{SELECT id,name FROM alliances ORDER BY name}); + my $query = $ND::DBH->prepare(q{SELECT id,name FROM alliances ORDER BY LOWER(name)}); $query->execute; while (my $ally = $query->fetchrow_hashref){ push @alliances,{Id => $ally->{id}, Name => $ally->{name}, Selected => $alliance == $ally->{id}};