From: Darold Gilles <gilles@darold.net>
Date: Mon, 17 Feb 2014 11:22:17 +0000 (+0100)
Subject: Add ordering in queries times histogram. Thanks to Ulf Renman for the report.
X-Git-Tag: v5.1~48
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7412c8b8c706e9ba6a7e3d9bef20d7189ca51340;p=pgbadger

Add ordering in queries times histogram. Thanks to Ulf Renman for the report.
---

diff --git a/pgbadger b/pgbadger
index 0f5fc81..515f465 100755
--- a/pgbadger
+++ b/pgbadger
@@ -9110,7 +9110,7 @@ sub flotr2_piegraph
 	my @datadef = ();
 	my @contdef = ();
 	my $i       = 1;
-	foreach my $k (sort keys %data) {
+	foreach my $k (sort { if ( ($a =~ /(\d+)/) && ($b =~ /(\d+)/) ) { ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0]; } else { $a cmp $b; } } keys %data) {
 		push(@datadef, "var d$i = [ [0,$data{$k}] ];\n");
 		my $color = '';
 		$color = ", color: \"$colors[$i-1]\"" if (($i-1) <= $#colors);