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.131 -r1.132
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 Jul 2007 13:35:12 -0000	1.131
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 Jul 2007 20:27:04 -0000	1.132
@@ -1175,10 +1175,8 @@
   Form proc disable_input_fields {form} {
     dom parse -simple -html $form doc
     $doc documentElement root
-    # TODO: other input fields (select, textarea)
-    set fields [$root selectNodes "//*\[@name != ''\]"]
+    set fields [$root selectNodes "//button | //input | //optgroup | //option | //select | //textarea "]
     foreach field $fields {
-      if {[$field nodeName] ne "input"} continue
       $field setAttribute disabled "disabled"
     }
     return [$root asHTML]