Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl	7 Jun 2018 17:41:01 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl	3 Sep 2024 15:37:34 -0000	1.10
@@ -24,7 +24,16 @@
     }
 }
 
-db_1row select_segment_info {}
+db_1row select_segment_info {
+    select s.segment_name,
+           s.group_id,
+           (select pretty_plural
+            from acs_rel_roles
+            where role = r.role_two) as role_pretty_plural
+      from rel_segments s, acs_rel_types r
+     where s.segment_id = :segment_id
+       and s.rel_type = r.rel_type
+}
 
 # The role pretty names can be message catalog keys that need
 # to be localized before they are displayed