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.13
--- 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	13 Jan 2005 23:37:06 -0000	1.13
@@ -24,6 +24,7 @@
     subsite_url:onevalue
 }
 
+
 set subsite_url [subsite::get_element -element url]
 
 #See if this page has been overrided by a parameter in kernel 
@@ -58,6 +59,12 @@
     return
 }
 
+# Here the email_image is created according to the priv_email
+# field in the users table
+
+set email_image "<p><b>\#acs-subsite.E_mail\#:</b>&nbsp;[email_image::get_user_email -user_id $user_id]</p>"
+
+
 if { ![empty_string_p $url] && ![string match -nocase "http://*" $url] } {
     set url "http://$url"
 }