Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	9 Nov 2008 23:29:24 -0000	1.15
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	29 Sep 2013 13:56:47 -0000	1.16
@@ -33,7 +33,7 @@
 
 set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id -community_id $community_id]
 set read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id -object_id $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]
 # Get all users for this community, including role
 template::util::list_of_ns_sets_to_multirow \
     -rows [dotlrn_community::list_users $community_id] \