Index: openacs-4/packages/dotlrn/www/member-add-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-2.adp,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/dotlrn/www/member-add-2.adp	9 Oct 2003 16:37:35 -0000	1.18
+++ openacs-4/packages/dotlrn/www/member-add-2.adp	7 Nov 2003 16:08:15 -0000	1.19
@@ -20,7 +20,7 @@
 
 <master>
 <property name="title">#dotlrn.Add_A_Member#</property>
-
+<property name="context">#dotlrn.Add_A_Member#</property>
 <if @member_p@ eq 1>
 
 #dotlrn.lt_strongfirst_names_las#
Index: openacs-4/packages/dotlrn/www/user-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.adp,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/user-add.adp	3 Oct 2003 17:23:14 -0000	1.14
+++ openacs-4/packages/dotlrn/www/user-add.adp	7 Nov 2003 16:08:15 -0000	1.15
@@ -20,7 +20,7 @@
 
 <master>
 <property name="title">#dotlrn.Add_A_User#</property>
-<property name="context_bar">@context_bar@</property>
+<property name="context">@context;noquote@</property>
 <property name="focus">register.email</property>
 
 <h3>#dotlrn.lt_Add_a_new_user_to_Slo#</h3>
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 -N -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
 }