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 -N -r1.67.2.26 -r1.67.2.27
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 21 Apr 2017 14:22:46 -0000 1.67.2.26
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 4 May 2017 10:44:59 -0000 1.67.2.27
@@ -813,9 +813,6 @@
[ad_parameter_all_values_as_list -package_id [ad_acs_kernel_id] AllowedProtocol antispam] \
[ad_parameter_all_values_as_list AllowedProtocol antispam]]
- foreach tag $allowed_tags_list {
- set allowed_tag([string tolower $tag]) 1
- }
foreach attribute $allowed_attributes_list {
set allowed_attribute([string tolower $attribute]) 1
}
@@ -852,10 +849,7 @@
set attr_list [ad_parse_html_attributes_upvar html i]
- set attr_count 0
foreach attribute $attr_list {
- incr attr_count
-
lassign $attribute attr_name attr_value
if { ![info exists allowed_attribute($attr_name)]