Index: openacs-4/packages/acs-subsite/www/admin/rel-types/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/index.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/index.tcl	19 Apr 2011 21:22:47 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/index.tcl	7 Aug 2017 23:47:58 -0000	1.4
@@ -21,24 +21,12 @@
 
 # Select out all relationship types, excluding the parent type names 'relationship'
 # Count up the number of relations that exists for each type.
-db_multirow rel_types select_relation_types {
-    select t.object_type as rel_type, t.pretty_name, t.indent, 
-           nvl(num.number_relationships,0) as number_relationships
-      from (select t.pretty_name, t.object_type, 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 in ('membership_rel','composition_rel')
-             order by lower(t.pretty_name)) t,
-           (select r.rel_type, count(*) as number_relationships
-              from acs_objects o, acs_rel_types r, 
-                   app_group_distinct_rel_map m
-             where r.rel_type = o.object_type
-               and o.object_id = m.rel_id
-               and m.package_id = :package_id
-             group by r.rel_type) num
-     where t.object_type = num.rel_type(+)
-    order by t.inner_rownum
-}
+db_multirow rel_types select_relation_types {}
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: