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 } {