Index: openacs-4/packages/dotlrn/www/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/dotlrn/www/user-add.tcl	20 Apr 2004 21:13:20 -0000	1.30
+++ openacs-4/packages/dotlrn/www/user-add.tcl	24 Jul 2004 08:34:10 -0000	1.31
@@ -32,6 +32,12 @@
 } -properties {
     context_bar:onevalue
 }
+
+#prevent this page from being called when it is not allowed
+# i.e.   AllowCreateGuestUsersInCommunity 0
+dotlrn_portlet::is_allowed -parameter guestuser
+dotlrn_portlet::is_allowed -parameter limiteduser
+
 # Set read_private_data_p and can_browse_p to me the most restrictive defaults.
 
 set current_user_id [ad_maybe_redirect_for_registration]