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
+        }
     }
 }