X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/08b6414f6e36757737a9a796c697700e70af05c3..ca8caa9227ad9151bd57ab7eccab2c8947ea55da:/browser.plp

diff --git a/browser.plp b/browser.plp
index 1158334..5380cef 100644
--- a/browser.plp
+++ b/browser.plp
@@ -73,7 +73,7 @@ my @browsers = keys %versions;
 print <<'';
 <p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
 
-my ($canihas, $usage);
+my ($canihas, $usage, $minusage);
 given ($get{usage} // 'wm') {
 	when (!$_) {
 		# none
@@ -96,7 +96,8 @@ given ($get{usage} // 'wm') {
 if ($usage) { # first() does not work inside given >:(
 	# adapt version usage to actual support data
 	my %engineuse;  # prefix => usage sum
-	while (my ($browser, $row) = each %$canihas) {
+	for my $browser (keys %versions) {
+		my $row = $canihas->{$browser} // {};
 		my $verlist = $versions{$browser} or next;
 		my %supported = map { $_ => 1 } @$verlist;
 
@@ -111,7 +112,7 @@ if ($usage) { # first() does not work inside given >:(
 		}
 
 		# build row list for each version
-		if (my $minusage = .2) {
+		if ($minusage = $get{threshold} // .5) {
 			my @vershown;  # $verlist replacement
 			my ($rowusage, @verrow) = (0);  # replacement row tracking
 			for (@$verlist) {
@@ -427,6 +428,8 @@ sub showversions {
 			<:= defined $get{style} && 'set to ' :><em><:= $style :></em>
 		<li><strong>usage</strong> source is
 			<:= !defined $get{usage} && 'default ' :><:= defined $usage ? "<em>$usage</em>" : 'not included (<em>0</em>)' :>
+		<li>usage <strong>threshold</strong> is
+			<:= defined $get{threshold} && 'changed to ' :><em><:= $minusage :>%</em>
 		</ul>
 	</div>
 </div>