diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-05 18:05:53 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-05 18:05:53 +0200 |
commit | 51ce4f60ee4b9402ca3feebd756751113587b01c (patch) | |
tree | 91890a9f31cefce241748b3e5a575896287476f7 | |
parent | f95cf68ab651b746d44d16a7297f0fea7ce9aeec (diff) | |
download | perl-app-clerk-51ce4f60ee4b9402ca3feebd756751113587b01c.tar.gz perl-app-clerk-51ce4f60ee4b9402ca3feebd756751113587b01c.tar.xz |
make clerk work even with missing tags
-rwxr-xr-x | clerk.pl | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -226,7 +226,9 @@ sub formated_albums { } for my $k (@skeys) { - push @albums, sprintf $fmtstr."%s\n", $uniq_albums{$k}->@{qw/AlbumArtist Date Album Dir/}; + my @vals = (map { "$_" // "Unknown" } $uniq_albums{$k}->@{qw/AlbumArtist Date Album/}), $uniq_albums{$k}->{Dir}; + my $strval = sprintf $fmtstr."%s\n", @vals; + push @albums, $strvals; } @@ -237,7 +239,8 @@ sub formated_tracks { my ($rdb) = @_; my $fmtstr = join "", map {"%-${_}.${_}s\t"} ($track_l, $title_l, $artist_l, $album_l); my @tracks = map { - sprintf $fmtstr."%-s\n", $_->@{qw/Track Title Artist Album uri/} + sprintf $fmtstr."%-s\n", (map { "$_" // "unknown" } $_->@{qw/Track Title Artist Album/}), $_->{uri}; +# sprintf $fmtstr."%-s\n", $_->@{qw/Track Title Artist Album uri/} } @{$rdb}; return \@tracks; |