Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	11 Dec 2002 13:53:51 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	13 Jan 2005 13:57:21 -0000	1.16
@@ -29,6 +29,9 @@
     context_bar:onevalue
 }
 
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin 
+
 # Used in en_US title
 set classes_pretty_name [parameter::get -localize -parameter classes_pretty_name]
 set title "[_ dotlrn.new_class_1]"