Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v diff -u -r1.9.2.9 -r1.9.2.10 --- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 27 Mar 2003 12:12:34 -0000 1.9.2.9 +++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 15 May 2003 08:46:39 -0000 1.9.2.10 @@ -1391,6 +1391,7 @@ {-len 200} {-format html} {-no_format:boolean} + {-ellipsis "..."} string } { Truncates a string to len characters (defaults to the @@ -1410,7 +1411,7 @@ @creation-date September 8, 2002 } { if { [string length $string] > $len } { - set string "[string range $string 0 $len]..." + set string "[string range $string 0 [expr $len-[string length $ellipsis]]]$ellipsis" } if { [string equal $format "html"] && !$no_format_p } {