Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Do not distinguish between case when sorting entries.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6339 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Michiel Van Der Kolk 2005-04-24 16:21:01 +00:00
parent e327cc8be3
commit 11359df6ca
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/songdb.pl
View file

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