Index: openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl,v
diff -u -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl	10 Sep 2015 08:21:40 -0000	1.2.2.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl	27 Oct 2015 23:01:34 -0000	1.2.2.2
@@ -10,21 +10,7 @@
 
 set package_id [ad_conn package_id]
 
-db_multirow groups select_groups {
-    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,
-           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 lower(g.group_name)
-}
+db_multirow groups select_groups {}
 
 ad_return_template