From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 9 Dec 2010 00:51:35 +0000 (+0100)
Subject: browser: explain unreleased version status in title
X-Git-Tag: v1.4~20
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/2b01d5bea012a8731dbb0c239532a4320e7d5d78

browser: explain unreleased version status in title
---

diff --git a/browser.plp b/browser.plp
index 02e7e0b..b2a7867 100644
--- a/browser.plp
+++ b/browser.plp
@@ -164,16 +164,19 @@ print '<thead>', $header;
 print "\n<tr>";
 print '<td>' x 3;
 for my $browser (@browsers) {
-	printf('<td title="%s"%s>%s',
-		join(' ',
-			sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct),
-			"version $_",
-		),
-		(map {
-			defined $_ && !$_ && ' class="ex"'
-		} $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
-		showversions($_),
-	) for @{ $versions{$browser} };
+	for my $_ (@{ $versions{$browser} }) {
+		my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_};
+		my $future = defined $release;
+		printf('<td title="%s"%s>%s',
+			join(' ',
+				sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct),
+				$future ? 'development' : (),
+				"version $_",
+			),
+			$future && ' class="ex"',
+			showversions($_),
+		);
+	}
 }
 print '<td>' x 1;
 say '</thead>';