Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 7 Mar 2002 22:48:53 -0000 1.33
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 11 Mar 2002 22:24:32 -0000 1.34
@@ -100,6 +100,24 @@
+
+
+
+ select rel_id,
+ rel_type,
+ users.user_id,
+ first_names,
+ last_name,
+ email
+ from registered_users users,
+ dotlrn_member_rels_full
+ where community_id = :community_id
+ and users.user_id = dotlrn_member_rels_full.user_id
+ and rel_type = :rel_type
+
+
+
+
select count(*) from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id