# Hide html by converting < and > to &lt; and &gt;
# This must be loaded within an include file.  Don't try this in a
# NeoWebScript block, it won't work.

proc hidehtml html {
        regsub -all < $html {\&lt;} html
        regsub -all > $html {\&gt;} html
	return $html
}

