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.26 -r1.27
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	10 Jan 2007 21:22:12 -0000	1.26
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	2 Feb 2007 19:49:23 -0000	1.27
@@ -482,14 +482,6 @@
       } 
 
     } else {
-        # Display mode
-        if { [info exists element(value)] } {
-            append output [template::util::richtext::get_property html_value $element(value)]
-            append output "<input type=\"hidden\" name=\"$element(id)\" value=\"[ad_quotehtml $contents]\">"
-            append output "<input type=\"hidden\" name=\"$element(id).format\" value=\"[ad_quotehtml $format]\">"
-        } else {
-	    append output ""
-	}
       append output "<br/>Format: $format_menu"
     }
 
@@ -503,7 +495,7 @@
     }
   } else {
     # Display mode
-    if { [info exists element(value)] } {
+    if { $element(mode) eq "display" && [info exists element(value)] } {
       append output [template::util::richtext::get_property html_value $element(value)]
       append output "<input type=\"hidden\" name=\"$element(id)\" value=\"[ad_quotehtml $contents]\">"
       append output "<input type=\"hidden\" name=\"$element(id).format\" value=\"[ad_quotehtml $format]\">"