Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.56 -r1.79.2.57
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	20 Feb 2022 13:09:10 -0000	1.79.2.56
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	2 Mar 2022 13:18:42 -0000	1.79.2.57
@@ -1919,6 +1919,12 @@
             set name [get_name_attribute $n $xpath//input]
             if {$name eq ""} continue
 
+            # Disabled attributes are not sent together with the form
+            # on submit, so we do not fetch them.
+            if {[$n hasAttribute disabled]} {
+                continue
+            }
+
             # Do not consider unchecked radio buttons as values
             if {[$n getAttribute type ""] eq "radio" &&
                 ![$n hasAttribute checked]} {
@@ -1936,13 +1942,27 @@
         foreach n [$node selectNodes $xpath//textarea] {
             set name [get_name_attribute $n $xpath//textarea]
             if {$name eq ""} continue
+
+            # Disabled attributes are not sent together with the form
+            # on submit, so we do not fetch them.
+            if {[$n hasAttribute disabled]} {
+                continue
+            }
+
             #ns_log notice "aa_xpath::get_form_values from $className textarea node $n name $name:"
             set value [$n text]
             lappend values $name $value
         }
         foreach n [$node selectNodes $xpath//select/option\[@selected='selected'\]] {
             set name [get_name_attribute [$n parentNode] $xpath//option/..]
             if {$name eq ""} continue
+
+            # Disabled attributes are not sent together with the form
+            # on submit, so we do not fetch them.
+            if {[$n hasAttribute disabled]} {
+                continue
+            }
+
             set value [$n getAttribute value]
             lappend values $name $value
         }