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.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	5 Nov 2001 22:34:23 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Nov 2001 20:20:56 -0000	1.6
@@ -35,8 +35,7 @@
 
 <fullquery name="dotlrn_community::list_users.select_users">
 <querytext>
-select rel_id, users.user_id, first_names, last_name, email from registered_users users, dotlrn_community_memberships 
-where community_id= :community_id and users.user_id = dotlrn_community_memberships.user_id
+select rel_id, 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
 </querytext>
 </fullquery>
 
@@ -79,6 +78,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_all_communities_by_user.select_communities_by_user">
+<querytext>
+select dotlrn_communities.community_id, community_type, community_key, pretty_name from dotlrn_communities, dotlrn_member_rels_full where dotlrn_communities.community_id = dotlrn_member_rels_full.community_id and dotlrn_member_rels_full.user_id = :user_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_communities_by_user.select_communities">
 <querytext>
 select dotlrn_communities.community_id as community_id, community_type, pretty_name, description, package_id
@@ -88,7 +93,7 @@
 and dotlrn_communities.community_id = dotlrn_community_memberships.community_id
 </querytext>
 </fullquery>
-\
+
 <fullquery name="dotlrn_community::get_active_communities.select_active_communities">
 <querytext>
 select community_id, community_type, pretty_name, description, package_id
@@ -97,6 +102,14 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_all_communities.select_all_communities">
+<querytext>
+select community_id, community_type, pretty_name, description, package_id
+from dotlrn_communities
+where community_type= :community_type
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_community_type.select_community_type">
 <querytext>
 select community_type from dotlrn_community_types where package_id= :package_id