Index: openacs-4/packages/dotlrn/www/applet-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-add.tcl,v
diff -u -r1.7 -r1.7.6.1
--- openacs-4/packages/dotlrn/www/applet-add.tcl	23 Oct 2002 12:38:39 -0000	1.7
+++ openacs-4/packages/dotlrn/www/applet-add.tcl	19 Jul 2004 18:39:39 -0000	1.7.6.1
@@ -26,6 +26,10 @@
     {referer "applets"}
 }
 
+#prevent this page from being called when it is not allowed
+# i.e.   AllowManageApplets 0
+dotlrn_portlet::is_allowed -parameter manageapplets
+
 set community_id [dotlrn_community::get_community_id]
 
 # Check access