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.5 -r1.19.2.6
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	10 Dec 2005 11:00:50 -0000	1.19.2.5
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	17 Jan 2006 02:42:04 -0000	1.19.2.6
@@ -368,8 +368,9 @@
     }
 
     set output [textarea_internal $element(id) attributes $contents]
-    append output "\n<br /><input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\"/>"
 
+    append output "Format: [menu $element(id).format [template::util::richtext::format_options] {} {}]"
+
     if { $htmlarea_p } {
       # Tell the blank-master to include the special stuff 
       # for the richtext widget in the page header
@@ -411,13 +412,9 @@
 	}
 	set ::acs_blank_master(xinha.options) $xinha_options
 	lappend ::acs_blank_master__htmlareas $attributes(id)
-	append output "<input name='$element(id).format' value='text/html' type='hidden'/>"
       } 
 
-  } else {
-	append output "Format: [menu $element(id).format [template::util::richtext::format_options] {} {}]"
   }
-
     # Spell-checker
     array set spellcheck [template::util::spellcheck::spellcheck_properties \
 			      -element_ref element]