- JSON doesn't quote single quotes according to specs

a1c45d1a · Project Open · e0ac10c8 · a1c45d1a
Commit a1c45d1a authored Apr 29, 2021 by Project Open
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

intranet-rest-util-procs.tcl tcl/intranet-rest-util-procs.tcl +1 -1

No files found.
--- a/tcl/intranet-rest-util-procs.tcl
+++ b/tcl/intranet-rest-util-procs.tcl
@@ -715,7 +715,7 @@ ad_proc -public im_quotejson { str } {
 } {
    regsub -all {\\} $str {\\\\} str
    regsub -all {"} $str {\"} str
-    regsub -all {'} $str {\'} str
+    # regsub -all {'} $str {\'} str
    regsub -all {\n} $str {\\n} str
    regsub -all {\r} $str {\\r} str
    regsub -all {\t} $str {\\t} str