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.16 -r1.17
--- openacs-4/packages/dotlrn/www/user-add.tcl	2 May 2002 21:00:05 -0000	1.16
+++ openacs-4/packages/dotlrn/www/user-add.tcl	16 May 2002 05:17:09 -0000	1.17
@@ -34,11 +34,16 @@
 }
 
 set user_id [ad_maybe_redirect_for_registration]
+set community_id [dotlrn_community::get_community_id]
 
-dotlrn::require_user_admin_community [dotlrn_community::get_community_id]
+if {![empty_string_p $community_id]} {
+    dotlrn::require_user_admin_community [dotlrn_community::get_community_id]
+    set context_bar {{"one-community-admin" Admin} {Add User}}
+} else {
+    dotlrn::require_admin
+    set context_bar {{users Users} {Add User}}
+}
 
-set context_bar {{"one-community-admin" Admin} {Add User}}
-
 set target_user_id [db_nextval acs_object_id_seq]
 
 form create add_user
@@ -97,7 +102,7 @@
     -value $access_level
 
 element create add_user read_private_data_p \
-    -label "Can Read Private Data?" \
+    -label "Guest?" \
     -datatype text \
     -widget hidden \
     -value $read_private_data_p
@@ -117,10 +122,7 @@
         if {![cc_email_from_party $target_user_id]} {
             # create the ACS user
             set password [ad_generate_random_string]
-            set target_user_id [ad_user_new \
-                $email $first_names $last_name $password \
-                "" "" "" "t" "approved" $target_user_id \
-            ]
+            set target_user_id [ad_user_new $email $first_names $last_name $password "" "" "" "t" "approved" $target_user_id]
         }
 
         # make the user a dotLRN user
@@ -136,6 +138,7 @@
     } else {
         ad_returnredirect $redirect
     }
+
     ad_script_abort
 }