X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/edb313a940627abab92ecc67a953502043346b94..3ab778af0d83ec94a63bccd029132166ea08bcd8:/browser.plp diff --git a/browser.plp b/browser.plp index 9adf10e..741868b 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 '', $cell; + printf '%s', join(' + ', @$_), $cell; } print '', map {