rec => 'l6', # recommendation
ietf => 'l6', # standard
);
-my @browsers = qw(trident gecko webkit_saf webkit_chr presto);
my %versions;
if (my ($somerow) = values %{ $caniuse->{data} }) {
while (my ($browser, $row) = each %{ $somerow->{stats} }) {
$versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ];
}
}
+my @browsers = grep { $versions{$_} }
+ qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini);
my $canihas = do 'browser-usage.inc.pl' || do {
printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_
my $cell = $_ ? lc $_->[0] : '-';
print '<th>', $cell;
}
- print '<td>', $row->{title};
+ print '<td>', map {
+ sprintf('<a href="%s" onclick="%s">%s</a>',
+ "#$id",
+ sprintf("try { %s; return false } catch(err) { return true }",
+ "document.getElementById('$id').classList.toggle('target')",
+ ),
+ $_,
+ );
+ } $row->{title};
print '<div class=aside>';
s/\.?$/./, print "<p>$_</p>" for map { ref $_ ? @$_ : $_ || () }
$row->{description}, $row->{notes};