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.4 -r1.79.2.5 --- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 29 Mar 2019 14:15:53 -0000 1.79.2.4 +++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 1 Apr 2019 18:13:39 -0000 1.79.2.5 @@ -1111,6 +1111,7 @@ -user_id:required -url:required {-update {}} + {-remove {}} form_content } { @@ -1119,7 +1120,14 @@ convenience the update fields are provided to overload the form_content. + @param update key/attribute list of values to be updated in the form content + @param remove keys to be removed from the form content + } { + if {$remove ne ""} { + set form_content [dict remove $form_content {*}$remove] + ns_log notice "DEBUG: after removing <$remove> from <$form_content>" + } foreach {att value} $update { dict set form_content $att $value }