X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/edb313a940627abab92ecc67a953502043346b94..327c4c234570dabd716f92da15cf0ef716b9cb5d:/browser.plp diff --git a/browser.plp b/browser.plp index 9adf10e..c10c20f 100644 --- a/browser.plp +++ b/browser.plp @@ -135,7 +135,7 @@ print "\n"; sub featurescore { # relative amount of support for given feature - state $statspts = { y=>10, 'y x'=>10, a=>5, 'a x'=>5, j=>2, 'p j'=>2, p=>1 }; + state $statspts = { y=>10, 'y x'=>10, a=>5, 'a x'=>5, j=>2, 'p j'=>2, 'p p'=>2, p=>1 }; my $rank = 0; if (my $row = shift) { if ($canihas) { @@ -172,7 +172,7 @@ sub saytitlecol { for ($row->{categories}) { my $cell = $_ ? lc $_->[0] : '-'; - print '
$_
" for map { ref $_ ? @$_ : $_ || () } - $row->{description}, $row->{notes}; - printf 'Resources: %s.', join(', ', - map { qq($_->{title}) } @$_ - ) for grep { @$_ } $row->{links} // (); + Entity($row->{description}), formathtml($row->{notes}); # sic + printf 'Resources: %s.', join(', ', map { + sprintf '%s', EscapeHTML($_->{url}), $_->{title} + } @$_) for grep { @$_ } $row->{links} // (); print '