Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl	3 Jul 2018 13:22:40 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl	2 Jan 2020 17:16:36 -0000	1.10.2.1
@@ -39,9 +39,19 @@
 
 # Select out the group name and the group's object type. Note we can
 # use 1row because the validate filter above will catch missing groups
+db_1row group_and_rel_info {
+    select (select group_name from groups
+            where group_id = :group_id) as group_name,
+           (select pretty_name from acs_object_types
+            where object_type = :rel_type) as rel_type_pretty_name,
+           r.pretty_plural as role_pretty_plural,
+           r.pretty_name as role_pretty_name
+      from acs_rel_types rel_types,
+           acs_rel_roles r
+     where r.role = rel_types.role_two
+       and rel_types.rel_type = :rel_type
+}
 
-db_1row group_and_rel_info {}
-
 # The role pretty names can be message catalog keys that need
 # to be localized before they are displayed
 set role_pretty_name [lang::util::localize $role_pretty_name]