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:
08b6414
)
browser: user-configurable usage threshold
author
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 15 Feb 2011 22:40:12 +0000
(23:40 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 10 Apr 2012 01:03:24 +0000
(
03:03
+0200)
browser.plp
patch
|
blob
|
history
diff --git
a/browser.plp
b/browser.plp
index 1158334132e62b713fbb6cc9451731ef201e78ca..c2586774810d4dfd888d09b33b8af6d314ced7ed 100644
(file)
--- 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
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
given ($get{usage} // 'wm') {
when (!$_) {
# none
@@
-111,7
+111,7
@@
if ($usage) { # first() does not work inside given >:(
}
# build row list for each version
}
# build row list for each version
- if (
my $minusage =
.2) {
+ if (
$minusage = $get{threshold} //
.2) {
my @vershown; # $verlist replacement
my ($rowusage, @verrow) = (0); # replacement row tracking
for (@$verlist) {
my @vershown; # $verlist replacement
my ($rowusage, @verrow) = (0); # replacement row tracking
for (@$verlist) {
@@
-427,6
+427,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>)' :>
<:= 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>
</ul>
</div>
</div>