From 2aed03e96b00547d5f2ad4ac73bb38baf99eddf5 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 22 Dec 2006 01:27:48 +0000
Subject: [PATCH] (PrintAllReferers): Add div.page around each page entry.
 (GetReferers): Removed HR.

---
 modules/referrer-tracking.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/modules/referrer-tracking.pl b/modules/referrer-tracking.pl
index 5a8bcce8..782f9c51 100644
--- a/modules/referrer-tracking.pl
+++ b/modules/referrer-tracking.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: referrer-tracking.pl,v 1.10 2006/08/06 11:48:07 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: referrer-tracking.pl,v 1.11 2006/12/22 01:27:48 as Exp $</p>';
 
 use LWP::UserAgent;
 
@@ -138,7 +138,7 @@ sub GetReferers {
       if lc($charset) eq lc($HttpCharset); # decode if possible
     $q->a({-href=>$_}, $title);
   } keys %Referers);
-  return $q->div({-class=>'refer'}, $q->hr(), $q->p(T('Referrers') . ': ' . $result))
+  return $q->div({-class=>'refer'}, $q->p(T('Referrers') . ': ' . $result))
     if $result;
 }
 
@@ -192,6 +192,8 @@ sub DoPrintAllReferers {
 sub PrintAllReferers {
   for my $id (@_) {
     ReadReferers($id);
-    print $q->p(ScriptLink(UrlEncode($id),$id)), GetReferers() if %Referers;
+    print $q->div({-class=>'page'},
+		  $q->p(ScriptLink(UrlEncode($id),$id)),
+		  GetReferers()) if %Referers;
   }
 }