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.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 17 Dec 2003 20:21:41 -0000 1.32
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 7 Jan 2004 01:55:19 -0000 1.33
@@ -162,12 +162,7 @@
ns_quotehtml does not).
} {
- # we have to do & first or we'll hose ourselves with the ones lower down
- regsub -all & $arg \\&\; arg
- regsub -all \" $arg \\"\; arg
- regsub -all < $arg \\<\; arg
- regsub -all > $arg \\>\; arg
- return $arg
+ return [string map {& & \" " < < > >} $arg]
}