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"