Index: openacs-4/packages/dotlrn/www/index-not-a-user.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index-not-a-user.tcl,v diff -u -N -r1.20.2.1 -r1.20.2.2 --- openacs-4/packages/dotlrn/www/index-not-a-user.tcl 17 May 2019 19:28:06 -0000 1.20.2.1 +++ openacs-4/packages/dotlrn/www/index-not-a-user.tcl 17 May 2019 19:31:34 -0000 1.20.2.2 @@ -24,7 +24,7 @@ # Already a user ad_returnredirect . ad_script_abort -} +} if { [dotlrn::admin_p] } { set return_url [export_vars -base "[dotlrn::get_admin_url]/user-new-2" { @@ -67,12 +67,12 @@ -parameter AutoUserType \ -package_id [dotlrn::get_package_id] \ -default "student"] - + set can_browse_p [parameter::get \ -parameter AutoUserAccessLevel \ -package_id [dotlrn::get_package_id] \ -default 1] - + set read_private_data_p [parameter::get \ -parameter AutoUserReadPrivateDataP \ -package_id [dotlrn::get_package_id] \ @@ -83,7 +83,7 @@ -type $type \ -can_browse=$can_browse_p \ -user_id $user_id - + dotlrn_privacy::set_user_is_non_guest \ -user_id $user_id \ -value $read_private_data_p