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.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotlrn/www/admin/admin-remove.tcl 19 Jul 2004 18:39:39 -0000 1.1.2.1 +++ openacs-4/packages/dotlrn/www/admin/admin-remove.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.2 @@ -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] } {