X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FMusicExpo.pm;h=a9a9058d47e5951578a4cd8c8450d1b91e587794;hb=9597938811ed0c5bcc0b9ec52b166cbce18b8794;hp=0b3276cab35784406e1f29a145af1276d9362ea4;hpb=c08ff73c462c266921575086a149c1079e335a4d;p=app-musicexpo.git diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm index 0b3276c..a9a9058 100644 --- a/lib/App/MusicExpo.pm +++ b/lib/App/MusicExpo.pm @@ -3,7 +3,7 @@ use v5.14; use strict; use warnings; -our $VERSION = '0.003003'; +our $VERSION = '0.004'; use Audio::FLAC::Header qw//; use HTML::Template::Compiled qw//; @@ -16,7 +16,6 @@ use DB_File qw//; use File::Basename qw/fileparse/; use Fcntl qw/O_RDWR O_CREAT/; use Getopt::Long; -use JSON::MaybeXS; use Storable qw/thaw freeze/; ################################################## @@ -163,10 +162,8 @@ sub run { push @files, \%entry } - my $json = JSON::MaybeXS->new(canonical => 1)->encode({files => \@files, prefix => $prefix}); - $json =~ s//>/g; - $ht->param(files=>[sort { $a->{title} cmp $b->{title} } @files], prefix => $prefix, json => $json); + @files = sort { $a->{title} cmp $b->{title} } @files; + $ht->param(files => \@files, prefix => $prefix); print $ht->output; } @@ -175,15 +172,16 @@ $default_template = <<'HTML'; Music + + +
-
TitleArtistAlbumGenreTrackYearType
/ +
/
- - HTML 1;