Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.340 -r1.341
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Apr 2009 11:00:11 -0000	1.340
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Apr 2009 12:12:23 -0000	1.341
@@ -2103,6 +2103,7 @@
 
   Form proc dom_disable_input_fields {{-with_submit 0} root} {
     set fields [$root selectNodes "//button | //input | //optgroup | //option | //select | //textarea "]
+    set disabled [list]
     foreach field $fields {
       set type ""
       if {[$field hasAttribute type]} {set type [$field getAttribute type]}
@@ -2112,7 +2113,14 @@
       # to identify the context, so don't disable it...
       if {$type eq "hidden"} continue
       $field setAttribute disabled "disabled"
+      lappend disabled [$field getAttribute name]
     }
+
+    #set fa [$root selectNodes {//input[@name='__form_action']}]
+    #if {$fa ne ""} {
+    #  $fa setAttribute value "view-form-data"
+    #}
+    return $disabled
   }
 
   Form proc disable_input_fields {{-with_submit 0} form} {