Index: openacs-4/packages/acs-admin/www/users/one.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/one.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/users/one.xql	29 Apr 2001 01:28:46 -0000	1.5
+++ openacs-4/packages/acs-admin/www/users/one.xql	21 Feb 2002 17:13:17 -0000	1.6
@@ -24,5 +24,28 @@
       </querytext>
 </fullquery>
 
- 
+<fullquery name="all_group_membership">
+  <querytext>
+    select groups.group_id, groups.group_name
+      from groups, group_member_map gm
+     where groups.group_id = gm.group_id and gm.member_id=:user_id
+  order by lower(groups.group_name)
+  </querytext>
+</fullquery>
+
+<fullquery name="direct_group_membership">
+  <querytext>
+  select group_id, rel_id, party_names.party_name as group_name
+    from (select /*+ ORDERED */ DISTINCT rels.rel_id, object_id_one as group_id, 
+                 object_id_two
+            from acs_rels rels, all_object_party_privilege_map perm
+           where perm.object_id = rels.rel_id
+                 and perm.privilege = 'read'
+                 and rels.rel_type = 'membership_rel'
+                 and rels.object_id_two = :user_id) r, 
+         party_names 
+   where r.group_id = party_names.party_id
+order by lower(party_names.party_name)
+  </querytext> 
+</fullquery>
 </queryset>