Index: openacs-4/packages/acs-templating/tcl/richtext-or-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-or-file-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/tcl/richtext-or-file-procs.tcl	29 Jan 2004 15:46:35 -0000	1.1
+++ openacs-4/packages/acs-templating/tcl/richtext-or-file-procs.tcl	29 Jan 2004 15:50:03 -0000	1.2
@@ -295,12 +295,10 @@
   } else {
       # Display mode
       if { [info exists element(value)] } {
-
-          # TODO
-
           append output [template::util::richtext_or_file::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]\">"
+          append output "<input type=\"hidden\" name=\"$element(id).mime_type\" value=\"[ad_quotehtml $mime_type]\">"
+          append output "<input type=\"hidden\" name=\"$element(id).storage_type\" value=\"[ad_quotehtml $storage_type]\">"
+          append output "<input type=\"hidden\" name=\"$element(id).text\" value=\"[ad_quotehtml $text]\">"
       }
   }