Index: openacs-4/packages/dotlrn/www/members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/dotlrn/www/members.tcl	14 Jul 2009 10:17:38 -0000	1.30
+++ openacs-4/packages/dotlrn/www/members.tcl	29 Sep 2013 13:49:45 -0000	1.31
@@ -30,7 +30,7 @@
 set my_user_id [ad_conn user_id]
 set context [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Manage_Members]]
 set community_id [dotlrn_community::get_community_id]
-set spam_p [dotlrn::user_can_spam_community_p -user_id [ad_get_user_id] -community_id $community_id]
+set spam_p [dotlrn::user_can_spam_community_p -user_id [ad_conn user_id] -community_id $community_id]
 set approval_policy_p [string eq [group::join_policy -group_id $community_id] "needs approval"]
 set subcomm_p [dotlrn_community::subcommunity_p -community_id $community_id]