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 -N -r1.29 -r1.30
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	29 May 2003 18:05:01 -0000	1.29
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	28 Oct 2003 17:28:50 -0000	1.30
@@ -87,8 +87,17 @@
     set email_from [ad_parameter -package_id [ad_acs_kernel_id] SystemOwner]
 
     db_transaction {
-        dotlrn::user_add -id $id -type $type -can_browse\=$can_browse_p -user_id $user_id
-        acs_privacy::set_user_read_private_data -user_id $user_id -object_id [dotlrn::get_package_id] -value $read_private_data_p
+
+        dotlrn::user_add \
+            -id $id \
+            -type $type \
+            -can_browse\=$can_browse_p \
+            -user_id $user_id
+
+        acs_privacy::set_user_read_private_data \
+            -user_id $user_id \
+            -object_id [dotlrn::get_package_id] \
+            -value $read_private_data_p
     }