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 -r1.4 -r1.4.2.1 --- openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl 5 Jan 2018 22:40:56 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl 16 May 2019 09:54:29 -0000 1.4.2.1 @@ -1,6 +1,6 @@ ad_page_contract { Administer the PrivateEmailLevelP parameter - + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) } { @@ -16,13 +16,13 @@ ad_form -name private-email -form { {level:integer(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}}} + {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] + -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