Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl	28 Aug 2003 09:41:40 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl	2 Mar 2004 17:01:23 -0000	1.3
@@ -42,6 +42,11 @@
         set    segment_name = :segment_name
         where  segment_id = :segment_id
     }
+    db_dml update_object_title {
+	update acs_objects
+	set title = :segment_name
+	where object_id = :segment_id
+    }
 } -after_submit {
     ad_returnredirect $view_url
     ad_script_abort