browser: count score for new status "p p"

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index 9adf10ef5a53437b81f9d282c524abea3fcb6acb..741868ba148a12bc3b9eea1261953aec88011148 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -135,7 +135,7 @@ print "</thead>\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 '<th>', $cell;
+               printf '<th title="%s">%s', join(' + ', @$_), $cell;
        }
 
        print '<td>', map {