From e604849205e1536bd54f43b4a4745358b2fb83e5 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 9 Jun 2002 16:33:15 +0000
Subject: [PATCH] Fixed a bug where insufficent privileges messages would cause
 duplicate output under mod_perl.

---
 lib/WebGUI/Privilege.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Privilege.pm b/lib/WebGUI/Privilege.pm
index 840b686fc..fafdf92a7 100644
--- a/lib/WebGUI/Privilege.pm
+++ b/lib/WebGUI/Privilege.pm
@@ -23,7 +23,7 @@ sub adminOnly {
 	if($session{env}{MOD_PERL}) {
         	my $r = Apache->request;
                 if(defined($r)) {
-                	$r->custom_response(403, $session{page}{url} );
+                	$r->custom_response(403, '<!--Admin Only-->' );
                         $r->status(403);
                 }
         } else {
@@ -92,7 +92,7 @@ sub insufficient {
 	if($session{env}{MOD_PERL}) {
                 my $r = Apache->request;
                 if(defined($r)) {
-                        $r->custom_response(403, $session{page}{url} );
+                        $r->custom_response(403, '<!--Insufficient Privileges-->' );
                         $r->status(403);
                 }
         } else {
@@ -128,7 +128,7 @@ sub noAccess {
 	if($session{env}{MOD_PERL}) {
                 my $r = Apache->request;
                 if(defined($r)) {
-                        $r->custom_response(403, $session{page}{url} );
+                        $r->custom_response(403, '<!--No Access-->' );
                         $r->status(403);
                 }
         } else {
@@ -150,7 +150,7 @@ sub notMember {
 	if($session{env}{MOD_PERL}) {
                 my $r = Apache->request;
                 if(defined($r)) {
-                        $r->custom_response(403, $session{page}{url} );
+                        $r->custom_response(403, '<!--Not A Member-->' );
                         $r->status(403);
                 }
         } else {