-package App::MusicExpo 0.002;
+package App::MusicExpo;
use v5.14;
use strict;
use warnings;
+our $VERSION = 0.003;
+
use Audio::FLAC::Header qw//;
use HTML::Template::Compiled qw//;
use Memoize qw/memoize/;
sub fix{
- utf8::decode($_[0]);
- $_[0]
+ my $copy = $_[0];
+ utf8::decode($copy);
+ $copy
}
sub flacinfo{
my $ht=HTML::Template::Compiled->new(
default_escape => 'HTML',
+ global_vars => 2,
$template eq '' ? (scalarref => \$default_template) : (filename => $template),
);
<thead>
<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
<tbody><tmpl_loop files>
-<tr><td><a href="<tmpl_var ESCAPE=URL path>"><tmpl_var title></a><td><tmpl_var artist><td><tmpl_var album><td><tmpl_var genre><td><tmpl_var tracknumber>/<tmpl_var tracktotal><td><tmpl_var year><td><tmpl_var format></tmpl_loop>
+<tr><td><a href=<tmpl_var title><td><tmpl_var artist><td><tmpl_var album><td><tmpl_var genre><td><tmpl_var tracknumber>/<tmpl_var tracktotal><td><tmpl_var year><td><tmpl_loop formats><a href="<tmpl_var ...prefix><tmpl_var ESCAPE=URL file>"><tmpl_var format></a> </tmpl_loop></tmpl_loop>
</table>
HTML
|---------+---------+-----------------+---------+-------+------+------|
| Cellule | Silence | L'autre endroit | Electro | 01/09 | 2005 | FLAC |
-where the title is a download link.
+where the type is a download link. If you have multiple files with the same
+basename (such as C<cellule.flac> and C<cellule.ogg>), they will be treated
+as two versions of the same file, so a row will be created with two download
+links, one for each format.
=head1 OPTIONS