Index: openacs-4/packages/dotlrn/www/admin/admin-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/admin-remove.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/admin/admin-remove.tcl 24 Jul 2004 08:34:12 -0000 1.2 +++ openacs-4/packages/dotlrn/www/admin/admin-remove.tcl 13 Jan 2005 13:57:21 -0000 1.3 @@ -24,6 +24,9 @@ user_id } +#Pages in this directory are only runnable by dotlrn-wide admins. +dotlrn::require_admin + set group_id [db_string group_id_from_name " select group_id from groups where group_name='dotlrn-admin'" -default ""] if {![empty_string_p $group_id] } {