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.28 -r1.29
--- openacs-4/packages/dotlrn/www/user-add.tcl	26 Sep 2003 12:56:03 -0000	1.28
+++ openacs-4/packages/dotlrn/www/user-add.tcl	7 Nov 2003 16:08:15 -0000	1.29
@@ -36,13 +36,17 @@
 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 {![empty_string_p $community_id]} {
     dotlrn::require_user_admin_community -community_id [dotlrn_community::get_community_id]
-    set context_bar [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Add_User]]
+    set context [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Add_User]]
     set community_p 1
 } else {
     dotlrn::require_admin
-    set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.Add_User]]
+    set context [list [list users [_ dotlrn.Users]] [_ dotlrn.Add_User]]
     set community_p 0
 }