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 <br>'s to preserve line breaks regsub -all {\r*\n} $text "<br>" 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 <P> if { [regsub -all {\r\n\s*\r\n} $text "<p>" text] == 0 } {