Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -N -r1.368.2.130 -r1.368.2.131
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	25 Aug 2022 09:53:32 -0000	1.368.2.130
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	29 Aug 2022 09:51:33 -0000	1.368.2.131
@@ -1118,7 +1118,7 @@
       #
       foreach name [:form_parameter __disabled_fields] {
         set f [:lookup_form_field -name $name $form_fields]
-        $f disabled disabled
+        $f set_disabled true
       }
     }
 
@@ -1417,7 +1417,7 @@
       #
       # (a) Disable explicit input fields.
       #
-      foreach f $form_fields {$f disabled 1}
+      foreach f $form_fields {$f set_disabled true}
       #
       # (b) Disable input in HTML-specified fields.
       #
@@ -2700,7 +2700,7 @@
       switch -glob -- $att {
         __category_* {
           set f [:lookup_form_field -name $att $form_fields]
-          if {![$f disabled]} {
+          if {![$f is_disabled]} {
             set value [$f value [$cc form_parameter $att]]
             foreach v $value {lappend category_ids $v}
           }
@@ -2715,7 +2715,7 @@
           # CR fields
           #
           set f [:lookup_form_field -name $att $form_fields]
-          if {![$f disabled]} {
+          if {![$f is_disabled]} {
             set value [$f value [string trim [$cc form_parameter $att]]]
             set varname [string range $att 1 end]
             if {[string first . $att] == -1} {
@@ -2732,7 +2732,7 @@
             # File related fields.
             #
             set f [:lookup_form_field -name $file $form_fields]
-            if {![$f disabled]} {
+            if {![$f is_disabled]} {
               $f $field [string trim [$cc form_parameter $att]]
             }
             #:msg "[$f name]: [list $f $field [string trim [$cc form_parameter $att]]]"
@@ -2743,7 +2743,7 @@
             #
             :log "===== Page get_form_data calls lookup_form_field -name $att"
             set f [:lookup_form_field -name $att $form_fields]
-            if {![$f disabled]} {
+            if {![$f is_disabled]} {
               set value [$f value [string trim [$cc form_parameter $att]]]
               #:log "===== Page get_form_data calls lookup_form_field -name $att -> $f -> '$value'"              
               if {[string first . $att] == -1} {
@@ -2801,7 +2801,7 @@
 
       if {![info exists processed($att)]
           && ![$f exists is_repeat_template]
-          && ![$f disabled]
+          && ![$f is_disabled]
         } {
         #ns_log notice "==== form field $att [$f info class] not yet processed"
 
@@ -3142,7 +3142,7 @@
 
   FormPage instproc form_fields_sanity_check {form_fields} {
     foreach f $form_fields {
-      if {[$f disabled]} {
+      if {[$f is_disabled]} {
         # don't mark disabled fields as required
         if {[$f required]} {
           $f required false