Index: openacs-4/packages/dotlrn/www/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v
diff -u -r1.8.2.2.4.1 -r1.8.2.2.4.2
--- openacs-4/packages/dotlrn/www/user-add-2.tcl	9 Jun 2004 23:44:03 -0000	1.8.2.2.4.1
+++ openacs-4/packages/dotlrn/www/user-add-2.tcl	19 Jul 2004 18:39:39 -0000	1.8.2.2.4.2
@@ -42,6 +42,11 @@
     administration_name: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
+
 # Get user info
 acs_user::get -user_id $user_id -array user
 # easier to work with scalar vars than array