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.63 -r1.64 --- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 8 Jun 2009 12:19:49 -0000 1.63 +++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 12 Jul 2009 01:08:31 -0000 1.64 @@ -284,19 +284,16 @@ # # -gustaf neumann (Jan 2009) - set frag [string map [list &# "&#"] $html_fragment] if {$break_soft == 0 && $break_hard == 0} { - # - # Only tag-closing functionality is required - # + set frag [string map [list &# "&#"] $html_fragment] if {[catch {dom parse -html $frag doc} errorMsg]} { # we got an error, so do normal processing ns_log notice "tdom can't parse the provided HTML, error=$errorMsg,\n\ - checking fragment without tdom" + checking fragment without tdom" } else { $doc documentElement root set html "" - # discard forms + # discared forms foreach node [$root selectNodes //form] {$node delete} # output wellformed html set b [lindex [$root selectNodes {//body}] 0] @@ -306,60 +303,61 @@ return $html } } + set frag $html_fragment # original code continues - set syn(A) nobr - set syn(ADDRESS) nobr - set syn(NOBR) nobr + set syn(a) nobr + set syn(address) nobr + set syn(nobr) nobr # - set syn(FORM) discard + set syn(form) discard # - set syn(BLINK) remove + set syn(blink) remove # - set syn(TABLE) close - set syn(FONT) close - set syn(B) close - set syn(BIG) close - set syn(I) close - set syn(S) close - set syn(SMALL) close - set syn(STRIKE) close - set syn(SUB) close - set syn(SUP) close - set syn(TT) close - set syn(U) close - set syn(ABBR) close - set syn(ACRONYM) close - set syn(CITE) close - set syn(CODE) close - set syn(DEL) close - set syn(DFN) close - set syn(EM) close - set syn(INS) close - set syn(KBD) close - set syn(SAMP) close - set syn(STRONG) close - set syn(VAR) close - set syn(DIR) close - set syn(DL) close - set syn(MENU) close - set syn(OL) close - set syn(UL) close - set syn(H1) close - set syn(H2) close - set syn(H3) close - set syn(H4) close - set syn(H5) close - set syn(H6) close - set syn(BDO) close - set syn(BLOCKQUOTE) close - set syn(CENTER) close - set syn(DIV) close - set syn(PRE) close - set syn(Q) close - set syn(SPAN) close + set syn(table) close + set syn(font) close + set syn(b) close + set syn(big) close + set syn(i) close + set syn(s) close + set syn(small) close + set syn(strike) close + set syn(sub) close + set syn(sup) close + set syn(tt) close + set syn(u) close + set syn(abbr) close + set syn(acronym) close + set syn(cite) close + set syn(code) close + set syn(del) close + set syn(dfn) close + set syn(em) close + set syn(ins) close + set syn(kbo) close + set syn(samp) close + set syn(strong) close + set syn(var) close + set syn(dir) close + set syn(dl) close + set syn(menu) close + set syn(ol) close + set syn(ul) close + set syn(h1) close + set syn(h2) close + set syn(h3) close + set syn(h4) close + set syn(h5) close + set syn(h6) close + set syn(bdo) close + set syn(blockquote) close + set syn(center) close + set syn(div) close + set syn(pre) close + set syn(q) close + set syn(span) close set out {} set out_len 0 @@ -444,7 +442,7 @@ set frag {} } } else { - set tag [string toupper $tag] + set tag [string tolower $tag] if { ![info exists syn($tag)]} { # if we don't have an entry in our syntax table just tack it on # and hope for the best.