Index: openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	29 May 2003 18:05:01 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	19 Jul 2004 18:39:39 -0000	1.8.6.1
@@ -26,6 +26,15 @@
     {referer "users"}
 }
 
+if { ![acs_user::site_wide_admin_p] } {
+             ns_log notice "user has tried to site-wide-admin-toggle  without permission"
+        ad_return_forbidden \
+               "Permission Denied" \
+               "<blockquote>
+                You don't have permission to see this page.
+               </blockquote>"
+}
+
 if {[string equal $value "grant"] == 1} {
     ad_permission_grant $user_id [acs_magic_object "security_context_root"] "admin"
 } elseif {[string equal $value "revoke"] == 1} {