Update the default format

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index 23489619410c1c031001ff98043f57724aaad897..9dc2d3d05229d79ecf4a051ab6662473b4ecaa9b 100644 (file)
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -113,6 +113,7 @@ sub run {
 
   my $ht=HTML::Template::Compiled->new(
        default_escape => 'HTML',
+       global_vars => 2,
        $template eq '' ? (scalarref => \$default_template) : (filename => $template),
   );
 
@@ -138,7 +139,7 @@ $default_template = <<'HTML';
 <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