Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	1 Dec 2001 23:16:27 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	10 Dec 2001 23:58:31 -0000	1.5
@@ -19,12 +19,19 @@
 element create add_user rel_type \
 	-label "Access" -datatype text -widget select -options {{{Limited Access} dotlrn_user_rel} {{Full Access} dotlrn_full_user_rel}}
 
+element create add_user read_private_data_p \
+        -label "Can Access Private Information?" -datatype text -widget select -options {{Yes t} {No f}}
+
 if {[form is_valid add_user]} {
-    template::form get_values add_user user_id type_id rel_type
+    template::form get_values add_user user_id type_id rel_type read_private_data_p
 
-    # add the user
-    dotlrn::user_add -rel_type $rel_type -user_id $user_id -type_id $type_id
+    db_transaction {
+        # add the user
+        dotlrn::user_add -rel_type $rel_type -user_id $user_id -type_id $type_id
 
+        acs_privacy::set_user_read_private_data -user_id $user_id -object_id [dotlrn::get_package_id] -value $read_private_data_p
+    }
+
     # redirect
     ad_returnredirect "users"
     return