Index: openacs-4/packages/dotlrn/www/applets.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/applets.tcl	21 Oct 2003 21:53:23 -0000	1.14
+++ openacs-4/packages/dotlrn/www/applets.tcl	24 Jul 2004 08:34:10 -0000	1.15
@@ -23,6 +23,10 @@
 } -query {
 }
 
+#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]
 set user_id [ad_get_user_id]
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]