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.6 -r1.67.2.7 --- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 9 Oct 2015 15:46:53 -0000 1.67.2.6 +++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 10 Oct 2015 17:57:04 -0000 1.67.2.7 @@ -212,12 +212,12 @@ # #################### + # # lars@pinds.com, 19 July 2000: # Should this proc change name to something in line with the rest # of the library? # - ad_proc -private util_close_html_tags { html_fragment {break_soft 0} @@ -257,8 +257,6 @@ @author Jeff Davis (davis@xarg.net) } { - set frag $html_fragment - # # The code in this function had an exponential behavior based on # the size. On the current OpenACS.org site (Jan 2009), the @@ -287,7 +285,6 @@ # -gustaf neumann (Jan 2009) if {$break_soft == 0 && $break_hard == 0} { - #set frag [string map [list &# "&#"] $html_fragment] if {[catch {dom parse -html $html_fragment doc} errorMsg]} { # we got an error, so do normal processing ns_log notice "tdom can't parse the provided HTML, error=$errorMsg,\nchecking fragment without tdom"