Index: openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql	22 Jul 2001 17:28:40 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql	7 Aug 2017 23:47:58 -0000	1.2
@@ -1,25 +1,21 @@
 <?xml version="1.0"?>
 <queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+  <rdbms><type>postgresql</type><version>9.0</version></rdbms>
 
 <fullquery name="select_groups">      
-      <querytext>
-      
-  select g.group_id, g.group_name from (
-    select distinct g.group_id, g.group_name
-      from (select group_id, group_name
-              from groups g, acs_objects o
-             where g.group_id = o.object_id
-		and o.object_type = :group_type) g,
-           (select object_id
-            from all_object_party_privilege_map
-            where party_id = :user_id and privilege = 'read') perm,
+  <querytext>
+    select g.group_id, g.group_name from (
+	select DISTINCT g.group_id, g.group_name
+        from (select group_id, group_name 
+              from groups g, acs_objects o 
+             where g.group_id = o.object_id 
+               and o.object_type = :group_type) g, 
            application_group_element_map m
-     where perm.object_id = g.group_id
-	and m.package_id = :package_id
-	and m.element_id = g.group_id
-     order by g.group_id, g.group_name) g
-   order by lower(g.group_name)
+        where m.package_id = :package_id
+        and m.element_id = g.group_id
+        and acs_permission.permission_p(g.group_id, :user_id, 'read')
+	) g
+     order by lower(g.group_name)
 
       </querytext>
 </fullquery>