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 -r1.7
--- openacs-4/packages/acs-subsite/tcl/group-procs.xql	28 Jun 2004 19:35:02 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/group-procs.xql	4 Jun 2006 00:45:42 -0000	1.7
@@ -11,7 +11,6 @@
       </querytext>
 </fullquery>
 
- 
 <fullquery name="group::new.package_select">      
       <querytext>
       
@@ -22,7 +21,52 @@
       </querytext>
 </fullquery>
 
- 
+<fullquery name="group::get_id_not_cached.get_group_id">
+      <querytext>
+      
+	select group_id
+	from groups
+	where group_name = :group_name
+	
+      </querytext>
+</fullquery>
+
+<fullquery name="group::get_id_not_cached.get_group_id_with_application">
+      <querytext>
+      
+	SELECT g.group_id                                                                                    
+           FROM acs_rels rels        		                                                                           
+           INNER JOIN composition_rels comp ON                                                                  
+           rels.rel_id = comp.rel_id                                                                            
+           INNER JOIN groups g ON rels.object_id_two = g.group_id                                               
+           WHERE rels.object_id_one = :application_group_id AND                                                 
+           g.group_name = :group_name	
+      </querytext>
+</fullquery>
+
+<fullquery name="group::get_members_not_cached.group_members_party">
+      <querytext>
+      
+		select member_id
+		from group_member_map
+		where group_id = :group_id
+	
+      </querytext>
+</fullquery>
+
+<fullquery name="group::get_members_not_cached.group_members">
+      <querytext>
+      
+		select m.member_id
+		from group_member_map m, acs_objects o
+		where m.group_id = :group_id
+		and m.member_id = o.object_id
+		and o.object_type = :type
+	
+      </querytext>
+</fullquery>
+
+
 <fullquery name="group::join_policy.select_join_policy">      
       <querytext>
       
@@ -50,7 +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>