git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d599bf8
)
browser: future version numbers marked .ex
author
Mischa POSLAWSKY
<perl@shiar.org>
Sun, 5 Dec 2010 23:44:10 +0000
(
00:44
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 6 Dec 2010 00:04:46 +0000
(
01:04
+0100)
browser.plp
patch
|
blob
|
history
diff --git
a/browser.plp
b/browser.plp
index 2acb027ab34ba008f63a36a215094170c32f9be3..d6291cb69d74f5948be7819540365aeea5d31299 100644
(file)
--- a/
browser.plp
+++ b/
browser.plp
@@
-42,6
+42,10
@@
given ($get{usage} // 'wm') {
<div id="browser">
<:
my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
<div id="browser">
<:
my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
+$_->{verrelease} = {
+ # mark last two (future) versions as unreleased, ensure current isn't
+ map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions}
+} for values %{ $caniuse->{agents} };
my %CSTATS = (
'n' => 'l1',
my %CSTATS = (
'n' => 'l1',
@@
-113,8
+117,12
@@
print '<thead>', $header;
print "\n<tr>";
print '<td>' x 3;
for my $browser (@browsers) {
print "\n<tr>";
print '<td>' x 3;
for my $browser (@browsers) {
- printf('<td title="%.1f%%">%s',
- $canihas->{$browser}->{$_}, showversions($_),
+ printf('<td title="%.1f%%"%s>%s',
+ $canihas->{$browser}->{$_},
+ (map {
+ defined $_ && !$_ && ' class="ex"'
+ } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
+ showversions($_),
) for @{ $versions{$browser} };
}
print '<td>' x 1;
) for @{ $versions{$browser} };
}
print '<td>' x 1;