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.67.2.23 -r1.67.2.24
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 15 Jan 2017 19:44:08 -0000 1.67.2.23
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 15 Jan 2017 19:54:59 -0000 1.67.2.24
@@ -868,9 +868,6 @@
}
return {}
}
-
- package require struct
- package require htmlparse
ad_proc ad_dom_fix_html {
-html:required
@@ -908,6 +905,13 @@
@author Antonio Pisano
} {
+ if {[catch {package require struct}]} {
+ error "Package struct non found on the system"
+ }
+ if {[catch {package require htmlparse}]} {
+ error "Package htmlparse non found on the system"
+ }
+
set tree [::struct::tree]