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.15.6.1
--- 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	25 Aug 2004 15:50:58 -0000	1.15.6.1
@@ -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]"