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;
}