From 5883b4ed0b2e8502ab40bc1af156d031c5865a3c Mon Sep 17 00:00:00 2001
From: Björn Stenberg <bjorn@haxx.se>
Date: Sat, 23 Oct 2004 14:15:00 +0000
Subject: Sort songarray on track number if available

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

(limited to 'tools/songdb.pl')

diff --git a/tools/songdb.pl b/tools/songdb.pl
index 88089972d4..fb0118d7e4 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'});
         }
-- 
cgit v1.2.3