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.2 -r1.3 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 27 Jan 2003 15:35:26 -0000 1.2 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 27 Jan 2003 16:42:32 -0000 1.3 @@ -80,8 +80,12 @@ set format [ns_queryget $element_id.format] set richtext_list [list $contents $format] - - return [list $richtext_list] + + if { [empty_string_p $contents] } { + return [list] + } else { + return [list $richtext_list] + } } ad_proc -public template::util::richtext::set_property { what richtext_list value } { @@ -156,11 +160,10 @@ } if (document.selection) { - document.write(''); + document.write('
'); document.write(''); document.write(''); document.write(''); - document.write(''); document.write(''); document.write(''); document.write('
bolditalicunderlinelink
');