Index: openacs-4/packages/dotlrn/www/members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/dotlrn/www/members.tcl	23 Oct 2002 12:38:39 -0000	1.18
+++ openacs-4/packages/dotlrn/www/members.tcl	4 Dec 2002 09:51:04 -0000	1.19
@@ -34,4 +34,5 @@
 set community_id [dotlrn_community::get_community_id]
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
 set admin_p [dotlrn::user_can_admin_community_p -user_id [ad_get_user_id] -community_id $community_id]
-
+set spam_p [dotlrn::user_can_spam_community_p -user_id [ad_get_user_id] -community_id $community_id]
+set return_url "[ns_conn url]?[ns_conn query]"