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.93 -r1.94
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 24 Aug 2018 13:51:04 -0000 1.93
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 4 Sep 2018 18:11:53 -0000 1.94
@@ -192,25 +192,25 @@
#
regsub -nocase -all \
{(href|src)\s*=\s*'((http|https|ftp|mailto):[^'\"]+)'} $html \
- "\\1='\u0001\\2\u0002'" html
-regsub -nocase -all \
- {(href|src)\s*=\s*[\"]((http|https|ftp|mailto):[^'\"]+)[\"]} $html \
- "\\1=\"\u0001\\2\u0002\"" html
+ "\\1='\u0001\\2\u0002'" html
+ regsub -nocase -all \
+ {(href|src)\s*=\s*[\"]((http|https|ftp|mailto):[^'\"]+)[\"]} $html \
+ "\\1=\"\u0001\\2\u0002\"" html
-if {[info exists path]} {
- set path "[string trim $path /]/"
- regsub -all {(href|src)\s*=\s*['\"]([^/][^\u0001:'\"]+?)['\"]} $html \
- "\\1='${host}${path}\\2111'" html
-}
-regsub -all {(href|src)\s*=\s*['\"]/([^\u0001:'\"]+?)['\"]} $html \
- "\\1=\"${host}\\2222\"" html
+ if {[info exists path]} {
+ set path "[string trim $path /]/"
+ regsub -all {(href|src)\s*=\s*['\"]([^/][^\u0001:'\"]+?)['\"]} $html \
+ "\\1='${host}${path}\\2'" html
+ }
+ regsub -all {(href|src)\s*=\s*['\"]/([^\u0001:'\"]+?)['\"]} $html \
+ "\\1='${host}\\2'" html
-#
-# Remove all protection characters again.
-#
-regsub -nocase -all {((href|src)\s*=\s*['\"]?)\u0001([^\u0002]*)\u0002} $html {\1\3} html
+ #
+ # Remove all protection characters again.
+ #
+ regsub -nocase -all {((href|src)\s*=\s*['\"]?)\u0001([^\u0002]*)\u0002} $html {\1\3} html
-return $html
+ return $html
}