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.25 -r1.26 --- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 29 Oct 2003 18:12:30 -0000 1.25 +++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 30 Oct 2003 08:53:31 -0000 1.26 @@ -614,13 +614,11 @@ set allowed_protocols_list [concat \ [ad_parameter_all_values_as_list -package_id [ad_acs_kernel_id] AllowedProtocol antispam] \ [ad_parameter_all_values_as_list AllowedProtocol antispam]] - set all_allowed_attributes_list [concat $allowed_attributes_list $allowed_url_attributes_list] - ns_log Debug "All attributes: $all_allowed_attributes_list" foreach tag $allowed_tags_list { set allowed_tag([string tolower $tag]) 1 } - foreach attribute $all_allowed_attributes_list { + foreach attribute $allowed_attributes_list { set allowed_attribute([string tolower $attribute]) 1 } foreach tagname $allowed_tags_list {