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.17 -r1.18
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	8 Dec 2001 01:22:40 -0000	1.17
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	17 Dec 2001 23:02:56 -0000	1.18
@@ -35,7 +35,6 @@
 </querytext>
 </fullquery>
 
-
 <fullquery name="dotlrn_community::get_rel_segment_id.select_rel_segment_id">
 <querytext>
 select segment_id from rel_segments where group_id= :community_id and rel_type= :rel_type
@@ -54,6 +53,18 @@
 </querytext>
 </fullquery>
 
+  <fullquery name="dotlrn_community::member_pending_p.is_pending_membership">
+    <querytext>
+      select count(*)
+      from group_member_map,
+           membership_rels
+      where group_member_map.group_id = :community_id
+      and group_member_map.member_id = :user_id
+      and group_member_map.rel_id = membership_rels.rel_id
+      and membership_rels.member_state = 'needs approval'
+    </querytext>
+  </fullquery>
+
 <fullquery name="dotlrn_community::remove_user.select_rel_info">
 <querytext>
 select rel_id, portal_id from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id
@@ -96,14 +107,6 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::get_active_communities.select_active_communities">
-<querytext>
-select community_id, community_type, pretty_name, description, package_id
-from dotlrn_active_not_closed_comms
-where community_type= :community_type
-</querytext>
-</fullquery>
-
 <fullquery name="dotlrn_community::get_all_communities.select_all_communities">
 <querytext>
 select community_id, community_type, pretty_name, description, package_id, community_key