--- awstats.pl.bck	2006-10-19 18:38:09.000000000 +0200
+++ awstats.pl	2006-10-19 18:34:32.000000000 +0200
@@ -677,6 +677,8 @@
 			print "</style>\n";
 		}
 
+		# http://www.frequency-decoder.com/2006/09/16/unobtrusive-table-sort-script-revisited
+		print "<script type=\"text\/javascript\" src=\"\/tablesort.js\"><\/script>";
 		print "</head>\n\n";
 		if ($FrameName ne 'index') {
 			print "<body style=\"margin-top: 0px\"";
@@ -8274,7 +8276,7 @@
     		if ($HTMLOutput{'urlentry'})  { $title=$Message[104]; $cpt=(scalar keys %_url_e); }
     		if ($HTMLOutput{'urlexit'})   { $title=$Message[116]; $cpt=(scalar keys %_url_x); }
     		&tab_head("$title",19,0,'urls');
-    		print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>";
+    		print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th class=\"sortable\">";
     		if ($FilterIn{'url'} || $FilterEx{'url'}) {
     			if ($FilterIn{'url'}) { print "$Message[79] <b>$FilterIn{'url'}</b>"; }
     			if ($FilterIn{'url'} && $FilterEx{'url'}) { print " - "; }
@@ -8287,10 +8289,10 @@
     		}
     		else { print "$Message[102]: $cpt $Message[28]"; }
     		print "</th>";
-    		if ($ShowPagesStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[29]</th>"; }
-    		if ($ShowPagesStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
-    		if ($ShowPagesStats =~ /E/i) { print "<th bgcolor=\"#$color_e\" width=\"80\">$Message[104]</th>"; }
-    		if ($ShowPagesStats =~ /X/i) { print "<th bgcolor=\"#$color_x\" width=\"80\">$Message[116]</th>"; }
+    		if ($ShowPagesStats =~ /P/i) { print "<th class=\"sortable\" bgcolor=\"#$color_p\" width=\"80\">$Message[29]</th>"; }
+    		if ($ShowPagesStats =~ /B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
+    		if ($ShowPagesStats =~ /E/i) { print "<th class=\"sortable\" bgcolor=\"#$color_e\" width=\"80\">$Message[104]</th>"; }
+    		if ($ShowPagesStats =~ /X/i) { print "<th class=\"sortable\" bgcolor=\"#$color_x\" width=\"80\">$Message[116]</th>"; }
     		# Call to plugins' function ShowPagesAddField
     		foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
 #    			my $function="ShowPagesAddField_$pluginname('title')";
@@ -9569,17 +9571,17 @@
 			print "$Center<a name=\"countries\">&nbsp;</a><br />\n";
 			my $title="$Message[25] ($Message[77] $MaxNbOf{'Domain'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=alldomains"):"$PROG$StaticLinks.alldomains.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>";
 			&tab_head("$title",19,0,'countries');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th colspan=\"2\">$Message[17]</th>";
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th class=\"sortable\" colspan=\"2\">$Message[17]</th>";
 	 		
 	 		## to add unique visitors and number of visits by calculation of average of the relation with total 
 	 		## pages and total hits, and total visits and total unique
 	 		## by Josep Ruano @ CAPSiDE 
-	 		if ($ShowDomainsStats =~ /U/i) { print "<th bgcolor=\"#$color_u\" width=\"80\"".Tooltip(2).">$Message[11]</th>"; }
-	 		if ($ShowDomainsStats =~ /V/i) { print "<th bgcolor=\"#$color_v\" width=\"80\"".Tooltip(1).">$Message[10]</th>"; }
-			if ($ShowDomainsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
-			if ($ShowDomainsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-			if ($ShowDomainsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-			print "<th>&nbsp;</th>";
+	 		if ($ShowDomainsStats =~ /U/i) { print "<th class=\"sortable\" bgcolor=\"#$color_u\" width=\"80\"".Tooltip(2).">$Message[11]</th>"; }
+	 		if ($ShowDomainsStats =~ /V/i) { print "<th class=\"sortable\" bgcolor=\"#$color_v\" width=\"80\"".Tooltip(1).">$Message[10]</th>"; }
+			if ($ShowDomainsStats =~ /P/i) { print "<th class=\"sortable\" bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
+			if ($ShowDomainsStats =~ /H/i) { print "<th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
+			if ($ShowDomainsStats =~ /B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
+			print "<th class=\"sortable\">&nbsp;</th>";
 			print "</tr>\n";
 			$total_u=$total_v=$total_p=$total_h=$total_k=0;
 			$max_h=1; foreach (values %_domener_h) { if ($_ > $max_h) { $max_h = $_; } }
@@ -9660,14 +9662,14 @@
 			my $title="$Message[81] ($Message[77] $MaxNbOf{'HostsShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=allhosts"):"$PROG$StaticLinks.allhosts.$StaticExt")."\"$NewLinkTarget>$Message[80]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lasthosts"):"$PROG$StaticLinks.lasthosts.$StaticExt")."\"$NewLinkTarget>$Message[9]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownip"):"$PROG$StaticLinks.unknownip.$StaticExt")."\"$NewLinkTarget>$Message[45]</a>";
 			&tab_head("$title",19,0,'visitors');
 			print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-			print "<th>";
+			print "<th class=\"sortable\">";
 			if ($MonthRequired ne 'all') { print "$Message[81] : $TotalHostsKnown $Message[82], $TotalHostsUnknown $Message[1]<br />$TotalUnique $Message[11]</th>"; }
 			else { print "$Message[81] : ".(scalar keys %_host_h)."</th>"; }
 			&ShowHostInfo('__title__');
-			if ($ShowHostsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
-			if ($ShowHostsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-			if ($ShowHostsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-			if ($ShowHostsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
+			if ($ShowHostsStats =~ /P/i) { print "<th class=\"sortable\" bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
+			if ($ShowHostsStats =~ /H/i) { print "<th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
+			if ($ShowHostsStats =~ /B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
+			if ($ShowHostsStats =~ /L/i) { print "<th class=\"sortable\" width=\"120\">$Message[9]</th>"; }
 			print "</tr>\n";
 			$total_p=$total_h=$total_k=0;
 			my $count=0;
@@ -9772,10 +9774,10 @@
 			if ($Debug) { debug("ShowRobotStats",2); }
 			print "$Center<a name=\"robots\">&nbsp;</a><br />\n";
 			&tab_head("$Message[53] ($Message[77] $MaxNbOf{'RobotShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=allrobots"):"$PROG$StaticLinks.allrobots.$StaticExt")."\"$NewLinkTarget>$Message[80]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lastrobots"):"$PROG$StaticLinks.lastrobots.$StaticExt")."\"$NewLinkTarget>$Message[9]</a>",19,0,'robots');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(16)."><th>".(scalar keys %_robot_h)." $Message[51]*</th>";
-			if ($ShowRobotsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-			if ($ShowRobotsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-			if ($ShowRobotsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(16)."><th class=\"sortable\">".(scalar keys %_robot_h)." $Message[51]*</th>";
+			if ($ShowRobotsStats =~ /H/i) { print "<th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
+			if ($ShowRobotsStats =~ /B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
+			if ($ShowRobotsStats =~ /L/i) { print "<th class=\"sortable\" width=\"120\">$Message[9]</th>"; }
 			print "</tr>\n";
 			$total_p=$total_h=$total_k=$total_r=0;
 			my $count=0;
@@ -9818,11 +9820,11 @@
 			print "$Center<a name=\"worms\">&nbsp;</a><br />\n";
 			&tab_head("$Message[163] ($Message[77] $MaxNbOf{'WormsShown'})",19,0,'worms');
 			print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(21).">";
-			print "<th>".(scalar keys %_worm_h)." $Message[164]*</th>";
-			print "<th>$Message[167]</th>";
-			if ($ShowWormsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-			if ($ShowWormsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-			if ($ShowWormsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
+			print "<th class=\"sortable\">".(scalar keys %_worm_h)." $Message[164]*</th>";
+			print "<th class=\"sortable\">$Message[167]</th>";
+			if ($ShowWormsStats =~ /H/i) { print "<th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
+			if ($ShowWormsStats =~ /B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
+			if ($ShowWormsStats =~ /L/i) { print "<th class=\"sortable\" width=\"120\">$Message[9]</th>"; }
 			print "</tr>\n";
 			$total_p=$total_h=$total_k=0;
 			my $count=0;
@@ -9907,10 +9909,10 @@
 			my $title="$Message[73]";
 			if ($ShowFileTypesStats =~ /C/i) { $title.=" - $Message[98]"; }
 			&tab_head("$title",19,0,'filetypes');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"3\">$Message[73]</th>";
-			if ($ShowFileTypesStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
-			if ($ShowFileTypesStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th><th bgcolor=\"#$color_k\" width=\"80\">$Message[15]</th>"; }
-			if ($ShowFileTypesStats =~ /C/i) { print "<th bgcolor=\"#$color_k\" width=\"100\">$Message[100]</th><th bgcolor=\"#$color_k\" width=\"100\">$Message[101]</th><th bgcolor=\"#$color_k\" width=\"100\">$Message[99]</th>"; }
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>&nbsp;</th><th class=\"sortable\">[&uarr;&darr;]</th><th class=\"sortable\">$Message[73]</th>";
+			if ($ShowFileTypesStats =~ /H/i) { print "<th class=\"sortable-numeric\" bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th><th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
+			if ($ShowFileTypesStats =~ /B/i) { print "<th class=\"sortable-numeric\" bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th><th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\">$Message[15]</th>"; }
+			if ($ShowFileTypesStats =~ /C/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"100\">$Message[100]</th><th class=\"sortable\" bgcolor=\"#$color_k\" width=\"100\">$Message[101]</th><th class=\"sortable\" bgcolor=\"#$color_k\" width=\"100\">$Message[99]</th>"; }
 			print "</tr>\n";
 			my $total_con=0; my $total_cre=0;
 			my $count=0;
@@ -9980,12 +9982,12 @@
 			if ($ShowPagesStats =~ /E/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urlentry"):"$PROG$StaticLinks.urlentry.$StaticExt")."\"$NewLinkTarget>$Message[104]</a>"; }
 			if ($ShowPagesStats =~ /X/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urlexit"):"$PROG$StaticLinks.urlexit.$StaticExt")."\"$NewLinkTarget>$Message[116]</a>"; }
 			&tab_head("$title",19,0,'urls');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$TotalDifferentPages $Message[28]</th>";
-			if ($ShowPagesStats =~ /P/i && $LogType ne 'F')    { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[29]</th>"; }
-			if ($ShowPagesStats =~ /[PH]/i && $LogType eq 'F') { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-			if ($ShowPagesStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
-			if ($ShowPagesStats =~ /E/i) { print "<th bgcolor=\"#$color_e\" width=\"80\">$Message[104]</th>"; }
-			if ($ShowPagesStats =~ /X/i) { print "<th bgcolor=\"#$color_x\" width=\"80\">$Message[116]</th>"; }
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th class=\"sortable\">$TotalDifferentPages $Message[28]</th>";
+			if ($ShowPagesStats =~ /P/i && $LogType ne 'F')    { print "<th class=\"sortable\" bgcolor=\"#$color_p\" width=\"80\">$Message[29]</th>"; }
+			if ($ShowPagesStats =~ /[PH]/i && $LogType eq 'F') { print "<th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
+			if ($ShowPagesStats =~ /B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
+			if ($ShowPagesStats =~ /E/i) { print "<th class=\"sortable\" bgcolor=\"#$color_e\" width=\"80\">$Message[104]</th>"; }
+			if ($ShowPagesStats =~ /X/i) { print "<th class=\"sortable\" bgcolor=\"#$color_x\" width=\"80\">$Message[116]</th>"; }
 			# Call to plugins' function ShowPagesAddField
 			foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
 #				my $function="ShowPagesAddField_$pluginname('title')";
@@ -9993,7 +9995,7 @@
 				my $function="ShowPagesAddField_$pluginname";
 				&$function('title');
 			}
-			print "<th>&nbsp;</th></tr>\n";
+			print "<th class=\"sortable\">&nbsp;</th></tr>\n";
 			$total_p=$total_e=$total_x=$total_k=0;
 			$max_p=1; $max_k=1;
 			my $count=0;
@@ -10122,7 +10124,7 @@
 			}
 			my $title="$Message[21] ($Message[77] $MaxNbOf{'BrowsersShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=browserdetail"):"$PROG$StaticLinks.browserdetail.$StaticExt")."\"$NewLinkTarget>$Message[80]/$Message[58]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownbrowser"):"$PROG$StaticLinks.unknownbrowser.$StaticExt")."\"$NewLinkTarget>$Message[0]</a>";
 			&tab_head("$title",19,0,'browsers');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th>$Message[21]</th><th width=\"80\">$Message[111]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th class=\"sortable\" width=\"$WIDTHCOLICON\">&nbsp;</th><th class=\"sortable\">$Message[21]</th><th class=\"sortable\" width=\"80\">$Message[111]</th><th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th class=\"sortable-numeric\" bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
 			$total_h=0;
 			my $count=0;
 			&BuildKeyList($MaxNbOf{'BrowsersShown'},$MinHit{'Browser'},\%new_browser_h,\%new_browser_h);
@@ -10163,7 +10165,7 @@
 			my $Totalh=0; foreach (keys %_screensize_h) { $Totalh+=$_screensize_h{$_}; }
 			my $title="$Message[135] ($Message[77] $MaxNbOf{'ScreenSizesShown'})";
 			&tab_head("$title",0,0,'screensizes');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[135]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th class=\"sortable\" >$Message[135]</th><th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
 			my $total_h=0;
 			my $count=0;
 			&BuildKeyList($MaxNbOf{'ScreenSizesShown'},$MinHit{'ScreenSize'},\%_screensize_h,\%_screensize_h);
@@ -10331,7 +10333,7 @@
 			if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "<td width=\"50%\" valign=\"top\">\n";	}
 			if ($Debug) { debug("ShowKeyphrasesStats",2); }
 			&tab_head("$Message[120] ($Message[77] $MaxNbOf{'KeyphrasesShown'})<br /><a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=keyphrases"):"$PROG$StaticLinks.keyphrases.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>",19,($ShowKeyphrasesStats && $ShowKeywordsStats)?95:70,'keyphrases');
-			print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(15)."><th>$TotalDifferentKeyphrases $Message[103]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[14]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
+			print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(15)."><th class=\"sortable\">$TotalDifferentKeyphrases $Message[103]</th><th class=\"sortable\" bgcolor=\"#$color_s\" width=\"80\">$Message[14]</th><th class=\"sortable\" bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
 			$total_s=0;
 			my $count=0;
 			&BuildKeyList($MaxNbOf{'KeyphrasesShown'},$MinHit{'Keyphrase'},\%_keyphrases,\%_keyphrases);
@@ -10527,13 +10529,14 @@
 	 		print "$Center<a name=\"extra$extranum\">&nbsp;</a><br />";
 			my $title=$ExtraName[$extranum];
 	 		&tab_head("$title",19,0,"extra$extranum");
+	 		print "<tbody>\n";
 	 		print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-	 		print "<th>".$ExtraFirstColumnTitle[$extranum]."</th>";
+	 		print "<th class=\"sortable\">".$ExtraFirstColumnTitle[$extranum]."</th>";
 
-	 		if ($ExtraStatTypes[$extranum] =~ m/P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
-	 		if ($ExtraStatTypes[$extranum] =~ m/H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-	 		if ($ExtraStatTypes[$extranum] =~ m/B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-	 		if ($ExtraStatTypes[$extranum] =~ m/L/i) { print "<th width=\"120\">$Message[9]</th>"; }
+	 		if ($ExtraStatTypes[$extranum] =~ m/P/i) { print "<th class=\"sortable\" bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
+	 		if ($ExtraStatTypes[$extranum] =~ m/H/i) { print "<th class=\"sortable\" bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
+	 		if ($ExtraStatTypes[$extranum] =~ m/B/i) { print "<th class=\"sortable\" bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
+	 		if ($ExtraStatTypes[$extranum] =~ m/L/i) { print "<th class=\"sortable\" width=\"120\">$Message[9]</th>"; }
 	 		print "</tr>\n";
 	 		$total_p=$total_h=$total_k=0;
 	 		#$max_h=1; foreach (values %_login_h) { if ($_ > $max_h) { $max_h = $_; } }
@@ -10559,6 +10562,7 @@
 	 			print "</tr>\n";
 	 			$count++;
 			}
+	 		print "</tbody>\n";
 			if ($ExtraAddAverageRow[$extranum]) {
 	 			print "<tr>";
 	 			print "<td class=\"aws\"><b>$Message[96]</b></td>";
