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 @@
+
+
+
+ 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
+
+
+