X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/4ca5c383de798f0aa6b1b5e149c620a77b753400..8f768b6ed17048f182cde20a621758cdbd3b72bb:/codec.plp

diff --git a/codec.plp b/codec.plp
index 1ae734a..2e50794 100644
--- 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>';
 }