Index: openacs-4/packages/dotlrn/www/join-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/join-policy-toggle.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	4 Dec 2002 09:51:04 -0000	1.7
+++ openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	24 Jul 2004 08:34:10 -0000	1.8
@@ -36,6 +36,10 @@
     }
 }
 
+#prevent this page from being called when is not allowed
+# i.e. AllowChangeEnrollmentPolicy
+dotlrn_portlet::is_allowed -parameter cenrollment
+
 if {[empty_string_p $community_id]} {
     set community_id [dotlrn_community::get_community_id]
 }