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.107 -r1.108
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 14 Dec 2018 15:11:53 -0000 1.107
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 14 Dec 2018 20:15:40 -0000 1.108
@@ -1365,17 +1365,19 @@
@author Antonio Pisano
} {
+ string map [list \n \\n \b \\b \f \\f \r \\r \t \\t \v \\v \" {\"} ' {\'}] $string
+
# Escape quotes and backslashes (non greedy)
- regsub -all {.??([^\\])?('|\"|\\)} $string {\1\\\2} string
+ #regsub -all {.??([^\\])?('|\"|\\)} $string {\1\\\2} string
# Escape characters are replaced with their escape sequence
- regsub -all {\b} $string {\\b} string
- regsub -all {\f} $string {\\f} string
- regsub -all {\n} $string {\\n} string
- regsub -all {\r} $string {\\r} string
- regsub -all {\t} $string {\\t} string
- regsub -all {\v} $string {\\v} string
+ #regsub -all {\b} $string {\\b} string
+ #regsub -all {\f} $string {\\f} string
+ #regsub -all {\n} $string {\\n} string
+ #regsub -all {\r} $string {\\r} string
+ #regsub -all {\t} $string {\\t} string
+ #regsub -all {\v} $string {\\v} string
- return $string
+ #return $string
}
####################