Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.19.2.7 -r1.19.2.8
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	26 Jan 2006 01:10:09 -0000	1.19.2.7
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	26 Jan 2006 15:44:47 -0000	1.19.2.8
@@ -369,7 +369,8 @@
 
     set output [textarea_internal $element(id) attributes $contents]
     if { $htmlarea_p } {
-      append output "<input name='$element(id).format' value='text/html' type='hidden'/>"
+      append output "<script>document.write(\"<input name='$element(id).format' value='text/html' type='hidden'/>\");</script>\n"
+      append output "<noscript><br/>Format: [menu $element(id).format [template::util::richtext::format_options] {} {}]</noscript>\n"
     } else {
       append output "<br/>Format: [menu $element(id).format [template::util::richtext::format_options] {} {}]"
     }