From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 17 Dec 2010 20:23:48 +0000 (+0100)
Subject: browser: fallback to order browser columns by name
X-Git-Tag: v1.5~102
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/862a7763364af7fb80ee3515a88a7f157438dbe0?hp=261b9c195cbae548640d3c6a58fa057a45afc7b3

browser: fallback to order browser columns by name
---

diff --git a/browser.plp b/browser.plp
index 9f8adf7..fa317a8 100644
--- a/browser.plp
+++ b/browser.plp
@@ -123,6 +123,15 @@ if ($usage) { # first() does not work inside given >:(
 		$canihas->{$b}->{-total} <=> $canihas->{$a}->{-total}
 	} @browsers;
 }
+else {
+	# order browser columns by name grouped by engine
+	@browsers = sort {
+		$caniuse->{agents}->{$b}->{prefix} cmp
+		$caniuse->{agents}->{$a}->{prefix}
+			||
+		$a cmp $b
+	} @browsers;
+}
 :>.
 </p>