git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
codec: rate browser support in my biased opinion
[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) {
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};
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);
}
}
$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>';
}
}
say '</td>';
}