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 -r1.368.2.143 -r1.368.2.144 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 25 May 2023 12:27:55 -0000 1.368.2.143 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 13 Sep 2023 22:26:37 -0000 1.368.2.144 @@ -2762,7 +2762,7 @@ set f [:lookup_form_field -name $att $form_fields] 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'" + #:log "===== Page get_form_data calls lookup_form_field -name $att -> $f -> '$value'" if {[string first . $att] == -1} { # # If the field is not a compound field, put the received @@ -3146,9 +3146,10 @@ } FormPage instproc render_form_action_buttons {{-CSSclass ""}} { - set f [::xowiki::formfield::submit_button new -destroy_on_cleanup \ + set f [::xowiki::formfield::submit_button new \ -name __form_button_ok \ - -CSSclass $CSSclass] + -CSSclass $CSSclass \ + -destroy_on_cleanup ] ::html::div [expr {[$f exists form_button_wrapper_CSSclass] ? [list class [$f form_button_wrapper_CSSclass]]