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.25 -r1.25.2.1
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	18 Aug 2006 19:02:24 -0000	1.25
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	12 Jan 2007 18:58:42 -0000	1.25.2.1
@@ -483,7 +483,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]\">"
@@ -503,7 +503,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]\">"