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.5 -r1.6 --- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 26 Jul 2002 00:59:09 -0000 1.5 +++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 30 Jul 2002 22:06:21 -0000 1.6 @@ -57,6 +57,12 @@ # Convert _single_ CRLF's to
's to preserve line breaks regsub -all {\r*\n} $text "
" text + + # Convert every two spaces to an nbsp + regsub -all { } $text "\\\  " text + + # Convert every tab to 4 nbsp's + regsub -all {\t} $text {\ \ \ \ } text # turn CRLFCRLF into

if { [regsub -all {\r\n\s*\r\n} $text "

" text] == 0 } {