From 11359df6ca0c7f8be6ac5c42fb906b95cba72855 Mon Sep 17 00:00:00 2001
From: Michiel Van Der Kolk <not.valid@email.address>
Date: Sun, 24 Apr 2005 16:21:01 +0000
Subject: [PATCH] Do not distinguish between case when sorting entries.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6339 a1c6a512-1295-4272-9138-f99709370657
---
 tools/songdb.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/songdb.pl b/tools/songdb.pl
index b7dc5ce538..19ca1cb634 100755
--- a/tools/songdb.pl
+++ b/tools/songdb.pl
@@ -377,7 +377,7 @@ if ($db) {
     # pointer to filename of song1
 
     my $offset = $songindex;
-    for(sort {$entries{$a}->{'TITLE'} cmp $entries{$b}->{'TITLE'}} keys %entries) {
+    for(sort {uc($entries{$a}->{'TITLE'}) cmp uc($entries{$b}->{'TITLE'})} keys %entries) {
         my $f = $_;
         my $id3 = $entries{$f};
         my $t = $id3->{'TITLE'};
@@ -403,7 +403,7 @@ if ($db) {
     # pointers to artists of album1
     # pointers to songs on album1
 
-    for(sort keys %albums) {
+    for(sort {uc($a) cmp uc($b)} keys %albums) {
         my $albumid = $_;
         my @moo=split(/___/, $_);
         my $t = $moo[0];
@@ -440,7 +440,7 @@ if ($db) {
     # name of artist1
     # pointers to albums of artist1
 
-    for (sort keys %artists) {
+    for (sort {uc($a) cmp uc($b)} keys %artists) {
         my $artist = $_;
         my $str =  $_."\x00" x ($maxartistlen - length($_));
         print DB $str;