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.4 -r1.6.2.5
--- openacs-4/packages/acs-subsite/tcl/group-procs.xql	16 Sep 2005 14:20:24 -0000	1.6.2.4
+++ openacs-4/packages/acs-subsite/tcl/group-procs.xql	24 Sep 2005 09:09:00 -0000	1.6.2.5
@@ -31,6 +31,19 @@
       </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>