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.109.2.46 -r1.109.2.47
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 6 Jul 2023 08:54:32 -0000 1.109.2.46
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 20 Nov 2023 15:04:35 -0000 1.109.2.47
@@ -1628,15 +1628,16 @@
dom parse -html "${lmarker}${html}${rmarker}" doc
} on error {errorMsg} {
+ set severity [expr {$validate_p ? "notice" : "error"}]
if {$fix_p} {
try {
set doc [ad_dom_fix_html -html $html -dom]
} on error {errorMsg} {
- ad_log error "Fixing of the document failed. Reported error: $errorMsg"
+ ad_log $severity "Fixing of the document failed. Reported error: $errorMsg"
return [expr {$validate_p ? 0 : ""}]
}
} else {
- ad_log error "Parsing of the document failed. Reported error: $errorMsg"
+ ad_log $severity "Parsing of the document failed. Reported error: $errorMsg"
return [expr {$validate_p ? 0 : ""}]
}
}