From: Eric Gillespie <epg@pretzelnet.org>
Date: Mon, 21 Mar 2022 22:57:59 +0000 (-0500)
Subject: add forgotten track_tags_from_disc function
X-Git-Url: https://diplodocus.org/git/flac-archive/commitdiff_plain/fe5592a23242a7d790b4cb813381a19d87478d45?hp=cd6b00d1cf4de2e18326ceb94a32366dbd4cd228

add forgotten track_tags_from_disc function
---

diff --git a/fa-encode b/fa-encode
index 8a1dc63..1656353 100755
--- a/fa-encode
+++ b/fa-encode
@@ -31,6 +31,7 @@ epg::flac::archive::tags->import(
         read_tags
         mangle_for_file_name
         quote
+        track_tags_from_disc
         two_digits
     ]);
 
diff --git a/tags.pl b/tags.pl
index 3475a56..c65a276 100644
--- a/tags.pl
+++ b/tags.pl
@@ -67,6 +67,7 @@ our @EXPORT_OK = qw[
     read_tags_metaflac
     disc_tags
     track_tags
+    track_tags_from_disc
 
     mangle_for_file_name
     quote
@@ -247,6 +248,17 @@ sub track_tags {
     )
 }
 
+# TODO confusing relationship with track_tags which is wrong
+sub track_tags_from_disc {
+    my ($album, $tracks, $tracknumber) = @_;
+    my $trackcount = @$tracks;
+    if ($trackcount < $tracknumber) {
+        die("requested track $tracknumber out of $trackcount tracks");
+    }
+    # Listing the track tags second makes them override the album tags.
+    %$album, %{$tracks->[$tracknumber - 1]}
+}
+
 sub mangle_for_file_name {
     my $fn = shift;
     $fn =~ s/[!,.?]//g;          # discard these punctuation marks