Index: openacs-4/packages/acs-subsite/tcl/group-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/group-procs.xql,v
diff -u -r1.6.2.5 -r1.6.2.6
--- openacs-4/packages/acs-subsite/tcl/group-procs.xql	24 Sep 2005 09:09:00 -0000	1.6.2.5
+++ openacs-4/packages/acs-subsite/tcl/group-procs.xql	14 Dec 2005 17:15:59 -0000	1.6.2.6
@@ -94,4 +94,10 @@
       </querytext>
 </fullquery>
 
+<fullquery name="group::party_member_p.party_is_member">      
+      <querytext>
+	  select 1 from group_approved_member_map where member_id = :party_id and group_id = :group_id
+      </querytext>
+</fullquery>
+
 </queryset>