Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v diff -u -N -r1.45.2.6 -r1.45.2.7 --- openacs-4/packages/acs-templating/tcl/form-procs.tcl 13 Oct 2013 12:26:33 -0000 1.45.2.6 +++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 16 Oct 2013 10:16:16 -0000 1.45.2.7 @@ -499,19 +499,19 @@ lappend form_properties(edit_buttons) [list $form_properties(cancel_label) cancel] } - if { ![template::util::is_nil form_properties(has_submit)] + if { [info exists form_properties(has_submit)] && [template::util::is_true $form_properties(has_submit)] } { set form_properties(edit_buttons) {} } - if { ![template::util::is_nil form_properties(has_edit)] + if { [info exists form_properties(has_edit)] && [template::util::is_true $form_properties(has_edit)] } { set form_properties(display_buttons) {} } - if { ![template::util::is_nil form_properties(actions)] + if { [info exists form_properties(actions)] && [template::util::is_true $form_properties(actions)] } { set form_properties(display_buttons) $form_properties(actions)