Sort songarray on track number if available

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5330 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 15 insertions, 3 deletions

diff --git a/tools/songdb.pl b/tools/songdb.pl
index 8808997..fb0118d 100755
--- a/tools/songdb.pl
+++ b/tools/songdb.pl
@@ -338,10 +338,22 @@ if($db) {
         my $str =  $t."\x00" x ($maxalbumlen - length($t));
         print DB $str;
 
-        my $a = $artistcount{$moo[0]} * $artistentrysize;
-        dumpint($a + $artistindex); # pointer to artist of this album
+        my $aoffset = $artistcount{$moo[0]} * $artistentrysize;
+        dumpint($aoffset + $artistindex); # pointer to artist of this album
+
+        my @songlist = keys %{$album2songs{$albumid}};
+        my $id3 = $album2songs{$albumid}{$songlist[0]};
+        if (defined $id3->{'TRACKNUM'}) {
+            @songlist = sort {
+                $album2songs{$albumid}{$a}->{'TRACKNUM'} <=>
+                    $album2songs{$albumid}{$b}->{'TRACKNUM'}
+            } @songlist;
+        }
+        else {
+            @songlist = sort @songlist;
+        }
 
-        for (sort keys %{$album2songs{$albumid}}) {
+        for (@songlist) {
             my $id3 = $album2songs{$albumid}{$_};
             dumpint($$id3{'songoffset'});
         }