When showing old history files (<5.4), sort is done on "hits" instead of "pages"...

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 45a1f1961a7a50d9f14e574b9c084ed743d74934..da01bff683ceac3d6ee0b6948c85f2758d37e428 100644 (file)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -8249,7 +8249,7 @@ if (scalar keys %HTMLOutput) {
                print "</tr>\n";
                $total_s=0;
                my $count=0;
-               &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Refer'},\%_se_referrals_h,\%_se_referrals_p);
+               &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Refer'},\%_se_referrals_h,((scalar keys %_se_referrals_p)?\%_se_referrals_p:\%_se_referrals_h));    # before 5.4 only hits were recorded
                foreach my $key (@keylist) {
                        my $newreferer=CleanFromCSSA($SearchEnginesHashLib{$key}||$key);
                        my $p_p; my $p_h;
@@ -8307,7 +8307,7 @@ if (scalar keys %HTMLOutput) {
                print "</tr>\n";
                $total_s=0;
                my $count=0;
-               &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Refer'},\%_pagesrefs_h,\%_pagesrefs_p);
+               &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Refer'},\%_pagesrefs_h,((scalar keys %_pagesrefs_p)?\%_pagesrefs_p:\%_pagesrefs_h));
                foreach my $key (@keylist) {
                        my $nompage=CleanFromCSSA($key);
                        if (length($nompage)>$MaxLengthOfShownURL) { $nompage=substr($nompage,0,$MaxLengthOfShownURL)."..."; }
@@ -9768,7 +9768,7 @@ if (scalar keys %HTMLOutput) {
                                print "<table>\n";
                                $total_p=0; $total_h=0;
                                my $count=0;
-                               &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_se_referrals_h,\%_se_referrals_p);
+                               &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_se_referrals_h,((scalar keys %_se_referrals_p)?\%_se_referrals_p:\%_se_referrals_h));
                                foreach my $key (@keylist) {
                                        my $newreferer=CleanFromCSSA($SearchEnginesHashLib{$key}||$key);
                                        print "<tr><td class=\"aws\">- $newreferer</td>";
@@ -9800,7 +9800,7 @@ if (scalar keys %HTMLOutput) {
                                print "<table>\n";
                                $total_p=0; $total_h=0;
                                my $count=0;
-                               &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_pagesrefs_h,\%_pagesrefs_p);
+                               &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_pagesrefs_h,((scalar keys %_pagesrefs_p)?\%_pagesrefs_p:\%_pagesrefs_h));
                                foreach my $key (@keylist) {
                                        print "<tr><td class=\"aws\">- ";
                                        &ShowURLInfo($key);