From e8fff65b88ed87fda8b4344d14daf71d1973ed36 Mon Sep 17 00:00:00 2001
From: Darold Gilles <gilles@darold.net>
Date: Fri, 8 Mar 2013 00:15:47 +0100
Subject: [PATCH] Fix bug on ordering column with sorttable. Thanks to David
 Walser for the report.

---
 SquidAnalyzer.pm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/SquidAnalyzer.pm b/SquidAnalyzer.pm
index 3376ecb..27df6e4 100644
--- a/SquidAnalyzer.pm
+++ b/SquidAnalyzer.pm
@@ -1607,8 +1607,8 @@ sub _print_mime_stat
 	print $out qq{
 </tr>};
 	}
-	my $sortpos = 2;
-	$sortpos = 3 if ($self->{OrderMime} eq 'bytes');
+	my $sortpos = 1;
+	$sortpos = 2 if ($self->{OrderMime} eq 'bytes');
 	print $out qq{
 </tbody>
 </table>
@@ -1866,9 +1866,9 @@ sub _print_network_stat
 <td style="text-align: left;">$network_stat{$net}{url}</td>
 </tr>
 };
-		my $sortpos = 2;
-		$sortpos = 3 if ($self->{OrderNetwork} eq 'bytes');
-		$sortpos = 4 if ($self->{OrderNetwork} eq 'duration');
+		my $sortpos = 1;
+		$sortpos = 2 if ($self->{OrderNetwork} eq 'bytes');
+		$sortpos = 3 if ($self->{OrderNetwork} eq 'duration');
 		print $outnet qq{
 		<script type="text/javascript">sortpos = $sortpos;</script>
 <div class="uplink">
@@ -1880,9 +1880,9 @@ sub _print_network_stat
 	}
 	print $out "</tbody></table>\n";
 
-	my $sortpos = 2;
-	$sortpos = 3 if ($self->{OrderNetwork} eq 'bytes');
-	$sortpos = 4 if ($self->{OrderNetwork} eq 'duration');
+	my $sortpos = 1;
+	$sortpos = 2 if ($self->{OrderNetwork} eq 'bytes');
+	$sortpos = 3 if ($self->{OrderNetwork} eq 'duration');
 	print $out qq{
 <script type="text/javascript">sortpos = $sortpos;</script>
 <div class="uplink">
@@ -2103,9 +2103,9 @@ sub _print_user_stat
 		$self->_print_footer(\$outusr);
 		$outusr->close();
 	}
-	my $sortpos = 2;
-	$sortpos = 3 if ($self->{OrderUser} eq 'bytes');
-	$sortpos = 4 if ($self->{OrderUser} eq 'duration');
+	my $sortpos = 1;
+	$sortpos = 2 if ($self->{OrderUser} eq 'bytes');
+	$sortpos = 3 if ($self->{OrderUser} eq 'duration');
 	print $out qq{
 </tbody>
 </table>
@@ -2339,9 +2339,9 @@ sub _print_user_detail
 		print $$out qq{
 </tr>};
 	}
-	my $sortpos = 2;
-	$sortpos = 3 if ($self->{OrderUrl} eq 'bytes');
-	$sortpos = 4 if ($self->{OrderUrl} eq 'duration');
+	my $sortpos = 1;
+	$sortpos = 2 if ($self->{OrderUrl} eq 'bytes');
+	$sortpos = 3 if ($self->{OrderUrl} eq 'duration');
 	print $$out qq{
 </tbody>
 </table>