Index: openacs-4/packages/acs-subsite/www/pvt/home.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.adp,v
diff -u -r1.18 -r1.18.2.1
--- openacs-4/packages/acs-subsite/www/pvt/home.adp	24 Jan 2004 14:46:15 -0000	1.18
+++ openacs-4/packages/acs-subsite/www/pvt/home.adp	17 Dec 2004 16:07:43 -0000	1.18.2.1
@@ -12,11 +12,18 @@
 </if>
 
 <ul class="action-links">
+  <if @show_email_p@ true>
+      <if @show_email@ true>
+          <li><a href="hide-email?hide='f'&user_id=@user_id@">Hide your E-mail</a>
+      </if> 
+      <else>
+          <li><a href="hide-email?hide='t'&user_id=@user_id@">Show your E-mail</a>
+      </else>
+  </if>
   <li><a href="../user/password-update">#acs-subsite.Change_my_Password#</a></li>
   <if @change_locale_url@ not nil>
     <li><a href="@change_locale_url@">#acs-subsite.Change_locale_label#</a></li>
   </if>
-
   <if @notifications_url@ not nil>
     <li><a href="@notifications_url@">#acs-subsite.Manage_your_notifications#</a></li>
   </if>
Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.17 -r1.17.4.1
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	3 Oct 2003 10:14:31 -0000	1.17
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	17 Dec 2004 16:07:43 -0000	1.17.4.1
@@ -77,6 +77,13 @@
 }
 
 
+# Check if the ShowEmailP parameter is set to 1 to show the link refered to Hide/Show Email
+set show_email_p [parameter::get_from_package_key -package_key acs-subsite -parameter ShowEmailP -default 1]
+
+# The users table has a field where the user can especify to show his/her email
+# or not. 
+db_1row show_email_info { }
+
 set whos_online_url "[subsite::get_element -element url]shared/whos-online"
 set make_visible_url "[subsite::get_element -element url]shared/make-visible"
 set make_invisible_url "[subsite::get_element -element url]shared/make-invisible"
Index: openacs-4/packages/acs-subsite/www/pvt/home.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/Attic/home.xql,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-subsite/www/pvt/home.xql	9 Dec 2002 13:29:00 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/pvt/home.xql	17 Dec 2004 16:07:43 -0000	1.4.2.1
@@ -40,5 +40,11 @@
       </querytext>
 </fullquery>
 
+<fullquery name="show_email_info">
+  <querytext>
+	select show_email from users where user_id = :user_id
+ </querytext>
+</fullquery>
+
  
 </queryset>