Index: openacs-4/packages/acs-subsite/www/shared/community-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/community-member.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-subsite/www/shared/community-member.tcl	11 Dec 2003 21:39:56 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/shared/community-member.tcl	17 Dec 2004 16:14:53 -0000	1.12.2.1
@@ -87,6 +87,8 @@
     }
 }
 
+# Check if the users are allow to see the emails
+set allow_email_p [parameter::get_from_package_key -package_key acs-subsite -parameter ShowEmailP -default 1]
 
 if { $priv_email <= [ad_privacy_threshold] } {
     set show_email_p 1
@@ -96,6 +98,10 @@
     # the home page
 }
 
+# The users table has a field where the user can especify to show his/her email
+# or not. It can be change in pvt/home if the parameter ShowEmailP is set to 1
+db_1row show_email_info { }
+
 set page_title "$first_names $last_name"
 set context [list "Community Member"]
 set system_name [ad_system_name]