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 -r1.30
--- openacs-4/packages/dotlrn/www/user-add.tcl	7 Nov 2003 16:08:15 -0000	1.29
+++ openacs-4/packages/dotlrn/www/user-add.tcl	20 Apr 2004 21:13:20 -0000	1.30
@@ -24,23 +24,23 @@
     @version $Id$
 } -query {
     {type student}
-    {can_browse_p 1}
-    {read_private_data_p t}
+    {can_browse_p 0}
+    {read_private_data_p f}
     {add_membership_p t}
     {dotlrn_interactive_p 0}
     {referer members}
 } -properties {
     context_bar:onevalue
 }
+# Set read_private_data_p and can_browse_p to me the most restrictive defaults.
 
 set current_user_id [ad_maybe_redirect_for_registration]
 set community_id [dotlrn_community::get_community_id]
 
-if {$read_private_data_p || $can_browse_p} {
-    dotlrn::require_admin
-}
+# If can_browse_p is 0, this means the new user would be able to join 
+# all communities.  It requires a site-wide administrator to add such a user.
     
-if {![empty_string_p $community_id]} {
+if {![empty_string_p $community_id] && $can_browse_p == 0} {
     dotlrn::require_user_admin_community -community_id [dotlrn_community::get_community_id]
     set context [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Add_User]]
     set community_p 1