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.72 -r1.73
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 17 Jan 2018 22:35:09 -0000 1.72
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 17 Jan 2018 22:38:42 -0000 1.73
@@ -357,7 +357,7 @@
#
set frag [string map [list &# "\0&#\0"] $html_fragment]
- ad_try {
+ try {
dom parse -html $frag doc
} on error {errorMsg} {
# we got an error, so do normal processing
@@ -448,9 +448,7 @@
}
set broken_p 0
-
set discard 0
-
set tagptr -1
# First try to fix up < not part of a tag.
@@ -1184,12 +1182,12 @@
set lmarker ""
set rmarker ""
- ad_try {
+ try {
dom parse -html "${lmarker}${html}${rmarker}" doc
} on error {errorMsg} {
if {$fix_p} {
- ad_try {
+ try {
set doc [ad_dom_fix_html -html $html -dom]
} on error {errorMsg} {
ad_log error "Fixing of the document failed. Reported error: $errorMsg"