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 @@
-
@@ -22,7 +21,52 @@
-
+
+
+
+ select group_id
+ from groups
+ where group_name = :group_name
+
+
+
+
+
+
+
+ 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
+
+
+
+
+
+
+ select member_id
+ from group_member_map
+ where group_id = :group_id
+
+
+
+
+
+
+
+ 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
+
+
+
+
+
@@ -50,7 +94,10 @@
-
+
+
+ select 1 from group_approved_member_map where member_id = :party_id and group_id = :group_id
+
+
-