Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one.adp,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.adp	6 Sep 2002 21:50:01 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.adp	11 Jun 2003 10:36:20 -0000	1.2.2.1
@@ -5,9 +5,10 @@
 <h4>Properties of this segment</h4>
 
 <ul>
-  <li> Group: <a href=../groups/one?group_id=@props.group_id@>@props.group_name@</a> </li>
-  <li> Relationship type: <a href=../rel-types/one?rel_type=@props.rel_type@>@props.rel_type_pretty_name@</a> </li>
-  <li> Number of @props.role_pretty_plural@: <a href=elements?segment_id=@segment_id@>@number_elements@</a> </li>
+  <li> Name: @props.segment_name@ (<a href="@name_edit_url@">Edit</a>) </li>
+  <li> Group: <a href="../groups/one?group_id=@props.group_id@" title="View this group">@props.group_name@</a> </li>
+  <li> Relationship type: <a href="../rel-types/one?rel_type=@props.rel_type@" title="View this relationship type">@props.rel_type_pretty_name@</a> </li>
+  <li> Number of @props.role_pretty_plural@: <a href="elements?segment_id=@segment_id@" title="View the elements in this relational segment">@number_elements@</a> </li>
 </ul>
 
 <h4>Constraints on this segment</h4>
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	6 Sep 2002 21:50:01 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	11 Jun 2003 10:36:20 -0000	1.3.2.1
@@ -42,6 +42,8 @@
     return
 }
 
+set name_edit_url [export_vars -base edit { segment_id }]
+
 # Pull out the number of elements that the current user can see. We do
 # this separately to avoid the join above. This query may need to
 # removed or changed to handle the permissions check more efficiently