Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	21 Oct 2003 14:33:35 -0000	1.24
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	13 Jan 2005 13:57:21 -0000	1.25
@@ -25,6 +25,9 @@
     {referer ""}
 }
 
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin 
+
 if {![db_0or1row select_class_info {}]} {
     set class_name ""
     set class_description ""