Index: openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl	16 May 2019 09:54:29 -0000	1.4.2.1
+++ openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl	18 Oct 2019 16:37:53 -0000	1.4.2.2
@@ -8,29 +8,27 @@
     context:onevalue
 }
 
-set page_title  "\"#acs-subsite.manage_users_email\#\""
 set context [list [list "." "Users"] "\"#acs-subsite.manage_users_email\#\""]
 
-
-set user_id [auth::require_login -account_status closed]
-
 ad_form -name private-email -form {
-    {level:integer(select)
+    {level:oneof(select)
         {label "\#acs-subsite.Change_my_email_P\#:"}
         {options {{"[_ acs-subsite.email_as_text_admin]" 4} {"[_ acs-subsite.email_as_image_admin]" 3} \
                       {"[_ acs-subsite.email_as_a_form_admin]" 2} {"[_ acs-subsite.email_dont_show_admin]" 1}}}
     }
 } -on_request {
-    set level [parameter::get_from_package_key -package_key "acs-subsite" \
-                            -parameter "PrivateEmailLevelP" -default 4]
+    set level [parameter::get -package_id [ad_conn subsite_id] \
+                              -parameter "PrivateEmailLevelP" -default 4]
 } -on_submit {
-    set package_id [apm_package_id_from_key acs-subsite]
-    parameter::set_value -package_id $package_id -parameter "PrivateEmailLevelP" -value $level
+    parameter::set_value -package_id [ad_conn subsite_id] \
+                         -parameter "PrivateEmailLevelP" \
+                         -value $level
 
 } -after_submit {
     ad_returnredirect "/acs-admin/users/"
     ad_script_abort
 }
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4