Use tags from all versions instead of only the first

[app-musicexpo.git] / lib / App / MusicExpo.pm

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index ebee6efc784f18ae802565dcc0c3a02a79fd8e81..a6c21a594260ba38e79c593b7f7f762f14229ae1 100644 (file)
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -153,7 +153,13 @@ sub run {
        for (values %files) {
                my @versions = @$_;
                my %entry = (%{$versions[0]}, formats => []);
-               push $entry{formats}, {format => $_->{format}, file => $_->{file}} for @versions;
+               for my $ver (@versions) {
+                       push $entry{formats}, {format => $ver->{format}, file => $ver->{file}};
+                       for my $key (keys $ver) {
+                               $entry{$key} = $ver->{$key} if $ver->{$key} ne '?';
+                       }
+               }
+               delete $entry{$_} for qw/format file/;
                push @files, \%entry
        }