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.26 -r1.27
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 30 Oct 2003 08:53:31 -0000 1.26
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 7 Nov 2003 13:03:46 -0000 1.27
@@ -276,7 +276,10 @@
set tagptr -1
- # first thing we do is chop off any trailing unclosed tag
+ # First try to fix up < not part of a tag.
+
+ regsub -all {<([^/[:alpha:]])} $frag {\<\1} frag
+ # no we do is chop off any trailing unclosed tag
# since when we substr blobs this sometimes happens
# this should in theory cut any tags which have been cut open.
@@ -1260,7 +1263,7 @@
set text [ad_enhanced_text_to_html $text]
}
text/plain {
- set text [ad_enhanced_text_to_plain_text $text]
+ set text [ad_enhanced_text_to_plain_text -- $text]
}
}
}