Index: openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.adp	14 Jan 2005 14:43:01 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">#acs-subsite.Change_my_email_P#</property>
+  <property name="context">@context;noquote@</property>
+
+<formtemplate id=private-email></formtemplate>
\ No newline at end of file
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl	14 Jan 2005 14:43:01 -0000	1.1
@@ -0,0 +1,32 @@
+ad_page_contract {
+    Administer the PrivateEmailLevelP parameter
+    
+    @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net)
+} {
+
+} -properties {
+    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)
+	{label "\#acs-subsite.Change_my_email_P\#:"}
+	{options {{"[_ acs-subsite.email_as_text] (4)" 4} {"[_ acs-subsite.email_as_image](3)" 3} \
+		      {"[_ acs-subsite.email_as_a_form] (2)" 2} {"[_ acs-subsite.email_dont_show] (1)" 1}}}
+    }
+} -on_request {
+    set level [parameter::get_from_package_key -package_key "acs-subsite" \
+			    -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
+
+} -after_submit {
+    ad_returnredirect "/acs-admin/users/"
+}
\ No newline at end of file