Index: openacs-4/packages/dotlrn/www/user-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v diff -u -r1.8 -r1.8.2.1 --- openacs-4/packages/dotlrn/www/user-add-2.tcl 26 Sep 2003 12:56:03 -0000 1.8 +++ openacs-4/packages/dotlrn/www/user-add-2.tcl 17 Dec 2003 09:48:09 -0000 1.8.2.1 @@ -51,13 +51,15 @@ set dotlrn_user_p [dotlrn::user_p -user_id $user_id] -db_transaction { - # can this user read private data? - acs_privacy::set_user_read_private_data -user_id $user_id -object_id [dotlrn::get_package_id] -value $read_private_data_p +if {!$dotlrn_user_p} { + db_transaction { + # can this user read private data? + acs_privacy::set_user_read_private_data -user_id $user_id -object_id [dotlrn::get_package_id] -value $read_private_data_p - if {!${dotlrn_interactive_p} && !$dotlrn_user_p} { - # make the user a dotLRN user - dotlrn::user_add -type $type -can_browse\=$can_browse_p -user_id $user_id + if {!${dotlrn_interactive_p}} { + # make the user a dotLRN user + dotlrn::user_add -type $type -can_browse\=$can_browse_p -user_id $user_id + } } }