Index: openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl,v
diff -u -r1.4.6.1 -r1.4.6.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl	10 Sep 2015 08:21:40 -0000	1.4.6.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl	27 Oct 2015 23:01:35 -0000	1.4.6.2
@@ -25,29 +25,7 @@
 
 set package_id [ad_conn package_id]
 
-db_multirow group_types select_group_types {
-    select t.object_type as group_type, t.pretty_plural, 
-           nvl(num.number_groups,0) as number_groups, t.indent
-      from (select t.object_type, t.pretty_plural, rownum as inner_rownum,
-                   replace(lpad(' ', (level - 1) * 4), ' ', ' ') as indent
-              from acs_object_types t
-           connect by prior t.object_type = t.supertype
-             start with t.object_type = 'group'
-             order by lower(t.pretty_plural)) t, 
-           (select o.object_type, count(*) number_groups
-              from groups g, acs_objects o,  
-                   acs_object_party_privilege_map perm,
-                   application_group_element_map app_group
-             where perm.object_id = g.group_id
-               and perm.party_id = :user_id
-               and perm.privilege = 'read'
-               and o.object_id = g.group_id
-               and app_group.package_id = :package_id
-               and app_group.element_id = g.group_id
-             group by o.object_type) num
-     where t.object_type = num.object_type(+)
-     order by t.inner_rownum
-}
+db_multirow group_types select_group_types {}
 
 ad_return_template