Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 27 Jan 2003 13:55:09 -0000 1.1 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 27 Jan 2003 15:35:26 -0000 1.2 @@ -93,7 +93,7 @@ switch $what { contents { - $ Replace contents with value + # Replace contents with value return [list $value $format] } format { @@ -158,10 +158,10 @@ if (document.selection) { document.write(''); document.write(''); - document.write(''); - document.write(''); - document.write(''); - document.write(''); + document.write(''); + document.write(''); + document.write(''); + document.write(''); document.write(''); document.write('
bolditalicunderlinelinkbolditalicunderlinelink
'); }