From 4c50ea277662e08e266c806dffc3995a74b97ba6 Mon Sep 17 00:00:00 2001
From: Dries Buytaert <dries@buytaert.net>
Date: Sun, 24 Jun 2001 12:06:40 +0000
Subject: - Small updates to statistics.module.

---
 modules/statistics/statistics.module | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

(limited to 'modules/statistics/statistics.module')

diff --git a/modules/statistics/statistics.module b/modules/statistics/statistics.module
index ba578e5b9..dac0694b9 100644
--- a/modules/statistics/statistics.module
+++ b/modules/statistics/statistics.module
@@ -21,13 +21,25 @@ function statistics_conf_options() {
 }
 
 function statistics_referer() {
-  $result = db_query("SELECT url, COUNT(url) AS count FROM referer GROUP BY url ORDER BY count");
+  $result = db_query("SELECT url, COUNT(url) AS count FROM referer WHERE url NOT LIKE '". path_uri() ."%' GROUP BY url ORDER BY count DESC");
+
+  $output .= "<P>Referers of the last ". format_interval(variable_get("referer_clear", 604800)) .":</P>\n";
+
+  $output .= "<H3>External referers</H3>\n";
+  $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+  $output .= " <TR><TH>URL</TH><TH>number</TH></TR>\n";
+  while ($referer = db_fetch_object($result)) {
+    $output .= "<TR><TD><A HREF=\"". check_output($referer->url) ."\">". check_output($referer->url) ."</A></TD><TD>". check_output($referer->count) ."</TD></TR>";
+  }
+  $output .= "</TABLE>\n";
+
+  $result = db_query("SELECT url, COUNT(url) AS count FROM referer WHERE url LIKE '". path_uri() ."%' GROUP BY url ORDER BY count DESC");
+
+  $output .= "<H3>Internal referers</H3>\n";
   $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
   $output .= " <TR><TH>URL</TH><TH>number</TH></TR>\n";
   while ($referer = db_fetch_object($result)) {
-    if (!ereg("^http://", $referer->url)) {
-      $output .= "<TR><TD><A HREF=\"". check_output($referer->url) ."\">". check_output($referer->url) ."</A></TD><TD>". check_output($referer->count) ."</TD></TR>";
-    }
+    $output .= "<TR><TD><A HREF=\"". check_output($referer->url) ."\">". check_output($referer->url) ."</A></TD><TD>". check_output($referer->count) ."</TD></TR>";
   }
   $output .= "</TABLE>\n";
 
-- 
cgit v1.2.3