Index: openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl	17 Dec 2004 16:06:09 -0000	1.1.2.1
@@ -0,0 +1,12 @@
+# /pvt/hide-email.tcl
+
+ad_page_contract {
+    changes show_email field in user's table
+} {
+    hide:notnull
+    user_id:notnull
+}
+
+db_dml update_show_email { }
+
+ad_returnredirect "/pvt/home"
\ No newline at end of file
Index: openacs-4/packages/acs-subsite/www/pvt/hide-email.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/hide-email.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/pvt/hide-email.xql	17 Dec 2004 16:06:09 -0000	1.1.2.1
@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="update_show_email">      
+      <querytext>
+	    update users set show_email = $hide where user_id = :user_id
+      </querytext>
+</fullquery>
+
+</queryset>