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.1 -r1.6.2.2
--- openacs-4/packages/acs-subsite/tcl/group-procs.xql	27 Jul 2005 14:54:01 -0000	1.6.2.1
+++ openacs-4/packages/acs-subsite/tcl/group-procs.xql	27 Jul 2005 16:15:08 -0000	1.6.2.2
@@ -21,6 +21,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="group::get_id.get_group_id">
+      <querytext>
+      
+	select group_id
+	from groups
+	where group_name = :group_name
+	
+      </querytext>
+</fullquery>
+
 <fullquery name="group::get_members_not_cached.group_members_party">
       <querytext>