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.43 -r1.44
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	1 Mar 2005 00:01:25 -0000	1.43
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	1 Mar 2005 13:17:08 -0000	1.44
@@ -164,12 +164,20 @@
     Analogous to ns_quotehtml except that it quotes double-quotes (which
     ns_quotehtml does not).
 
+    @see ad_unquotehtml
 } {
     return [string map {& &amp; \" &quot; < &lt; > &gt;} $arg]
 }
 
+ad_proc -public ad_unquotehtml {arg} {
+    reverses ad_quotehtml
 
+    @see ad_quotehtml
+} {
+    return [string map {&gt; > &lt; < &quot; \" &amp; &} $arg]
+}
 
+
 ####################
 #
 # HTML -> HTML