push @files, \%entry
}
+ @files = sort { $a->{title} cmp $b->{title} } @files;
my $json = JSON::MaybeXS->new(canonical => 1)->encode({files => \@files, prefix => $prefix});
$json =~ s/</</g;
$json =~ s/>/>/g;
- $ht->param(files=>[sort { $a->{title} cmp $b->{title} } @files], prefix => $prefix, json => $json);
+ $ht->param(files => \@files, prefix => $prefix, json => $json);
print $ht->output;
}
<title>Music</title>
<meta charset="utf-8">
<link rel="stylesheet" href="/music.css">
+<script async defer type="application/javascript" src="player.js"></script>
+
+<div id="player"></div>
<table border>
<thead>