Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.226 -r1.227
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	6 Mar 2013 08:07:30 -0000	1.226
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	19 Mar 2013 18:43:40 -0000	1.227
@@ -33,6 +33,7 @@
     {display_field true} 
     {hide_value false} 
     {inline false}
+    {mode edit}
     {disabled}
     {show_raw_value}
     CSSclass
@@ -466,6 +467,10 @@
     # If no special renderer is defined, we fall back to this one, 
     # which is in most cases  a simple input fied of type string.
     #
+    if {[my mode] ne "edit"} {
+      html::t -disableOutputEscaping [my pretty_value [my value]]
+      return
+    }
     if {[my exists validate_via_ajax] && [my validator] ne ""} {
       set ajaxhelper 1
       ::xowiki::Includelet require_YUI_JS -ajaxhelper 0 "yahoo/yahoo-min.js"
@@ -519,7 +524,7 @@
         ::html::label -for [my id] {
           ::html::t [my label]
         }
-        if {[my required]} {
+        if {[my required] && [my mode] eq "edit"} {
           ::html::div -class form-required-mark {
             ::html::t " (#acs-templating.required#)"
           }
@@ -660,7 +665,7 @@
     if {[my exists show_raw_value]} {
       return $v
     } else {
-      return [my pretty_value]
+      return [my pretty_value $v]
     }
   }