codec: technical values or details om hover

[sheet.git] / codec.plp

diff --git a/codec.plp b/codec.plp
index 1ae734aee72c00659ec338ffa69ccd57e242a86c..2e5079487e792c6147425a8c9dd36354c5f118ae 100644 (file)
--- a/codec.plp
+++ b/codec.plp
@@ -41,7 +41,7 @@ while (defined (my $feat = shift @feat)) {
        print '<tbody>' if $featinfo->{children};
        printf '<tr><th>%s', $featinfo->{name} // $feat;
        for (@codecs) {
-               my ($score, $data) = map { ref ? @$_ : $_ } $featinfo->{score}->{$_};
+               my ($score, $data, $title) = map { ref ? @$_ : $_ } $featinfo->{score}->{$_};
                if (not defined $data) {
                        if (my $override = $BOOLSCORE{$score}) {
                                ($score, $data) = @{$override};
@@ -50,7 +50,9 @@ while (defined (my $feat = shift @feat)) {
                                $data = '•' x ($score - 1);
                        }
                }
-               printf '<td class="l%d">%s', $score, $data;
+               printf '<td class="l%d"', $score;
+               printf ' title="%s"', $_ for $title // ();
+               print '>', $data;
        }
        say '</td>';
 }