browser: future version numbers marked .ex
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 5 Dec 2010 23:44:10 +0000 (00:44 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 6 Dec 2010 00:04:46 +0000 (01:04 +0100)
browser.plp

index 2acb027..d6291cb 100644 (file)
@@ -42,6 +42,10 @@ given ($get{usage} // 'wm') {
 <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',
@@ -113,8 +117,12 @@ print '<thead>', $header;
 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;