Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v diff -u -N -r1.27 -r1.28 --- openacs-4/packages/xowf/tcl/xowf-procs.tcl 7 Oct 2018 11:39:57 -0000 1.27 +++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 20 Jan 2019 20:44:07 -0000 1.28 @@ -956,7 +956,7 @@ } Condition instproc defaultmethod {} { set obj [[:wf_context] object] - expr [:expr] + expr ${:expr} } #{label "#xowf.form-button-[namespace tail [self]]#"} @@ -1129,6 +1129,14 @@ } } + WorkflowPage instproc evaluate_form_field_condition {cond} { + set ctx [::xowf::Context require [self]] + if {[info commands ${ctx}::$cond] ne ""} { + return [${ctx}::$cond] + } + return 0 + } + WorkflowPage ad_instproc render_form_action_buttons_widgets {{-CSSclass ""} buttons} { With the given set of buttons, produce the HTML for the button container and the included inputs.