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.19 -r1.20
--- openacs-4/packages/acs-subsite/www/shared/community-member.tcl	10 Nov 2011 18:20:17 -0000	1.19
+++ openacs-4/packages/acs-subsite/www/shared/community-member.tcl	27 Oct 2014 16:40:01 -0000	1.20
@@ -4,7 +4,7 @@
     @param user_id defaults to currently logged in user if there is one
     @cvs-id $Id$
 } {
-    {user_id:integer ""}
+    {user_id:naturalnum ""}
 } -properties {
     context:onevalue
     member_state:onevalue
@@ -43,7 +43,7 @@
 if { $user_id eq "" } {
     if { $verified_user_id == 0 } {
 	# Don't know what to do! 
-	ad_return_error "Missing user_id" "We need a user_id to display the community page"
+	auth::require_login
 	return
     }
     set user_id $verified_user_id
@@ -73,7 +73,7 @@
 
 # Do we show the portrait?
 set inline_portrait_state "none"
-set portrait_export_vars [export_url_vars user_id]
+set portrait_export_vars [export_vars -url {user_id}]
 
 if {[db_0or1row portrait_info "
 select i.width, i.height, cr.title, cr.description, cr.publish_date
@@ -94,8 +94,8 @@
     }
 }
 
-
-if { $priv_email <= [ad_privacy_threshold] } {
+# priv_email seems obsolete, since ad_privacy_threshold is deprecated
+if { [ad_conn user_id] > 0 } {
     set show_email_p 1
 } else {
     set show_email_p 0