Index: openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl,v diff -u -N -r1.4.2.3 -r1.4.2.4 --- openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl 20 May 2016 20:02:44 -0000 1.4.2.3 +++ openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl 26 Apr 2017 18:58:10 -0000 1.4.2.4 @@ -21,8 +21,12 @@ ad_form -name private-email -export return_url -form { {level:integer(select) {label "\#acs-subsite.Change_my_email_P\#:"} - {options {{"[_ acs-subsite.email_as_text]" 4} {"[_ acs-subsite.email_as_image]" 3} \ - {"[_ acs-subsite.email_as_a_form]" 2} {"[_ acs-subsite.email_dont_show]" 1}}} + {options { + {"[_ acs-subsite.email_as_text]" 4} + {"[_ acs-subsite.email_as_image]" 3} + {"[_ acs-subsite.email_as_a_form]" 2} + {"[_ acs-subsite.email_dont_show]" 1} + }} } } -on_request { set level [email_image::get_priv_email -user_id $user_id]