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.29.2.1.4.1 -r1.29.2.1.4.2
--- openacs-4/packages/dotlrn/www/user-add.tcl	19 Jul 2004 18:39:39 -0000	1.29.2.1.4.1
+++ openacs-4/packages/dotlrn/www/user-add.tcl	10 Oct 2005 12:24:15 -0000	1.29.2.1.4.2
@@ -35,9 +35,14 @@
 
 #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
 
+if {[string equal $read_private_data_p f]} {
+	dotlrn_portlet::is_allowed -parameter guestuser
+}
+if {[string equal $can_browse_p 0]} {
+	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]