Index: openacs-4/packages/workflow/tcl/action-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/action-procs.tcl,v diff -u -r1.43 -r1.44 --- openacs-4/packages/workflow/tcl/action-procs.tcl 20 Nov 2019 14:06:41 -0000 1.43 +++ openacs-4/packages/workflow/tcl/action-procs.tcl 28 Sep 2022 09:12:55 -0000 1.44 @@ -257,7 +257,7 @@ if { [info exists row(trigger_type)] && $row(trigger_type) ne "user" } { error "You can't specify both initial_action_p (which is deprecated) and trigger_type (which has replaced it) at the same time. Stick to trigger_type." } - if { [template::util::is_true $row(initial_action_p)] } { + if { [string is true -strict $row(initial_action_p)] } { set row(trigger_type) "init" } unset row(initial_action_p) @@ -302,7 +302,7 @@ -action_id $action_id] } always_enabled_p { - set $varname [db_boolean [template::util::is_true $row($attr)]] + set $varname [db_boolean [string is true -strict $row($attr)]] } assigned_role { if { $row($attr) eq "" } { @@ -1247,7 +1247,7 @@ } -default {}] set currently_enabled_p [expr {$currently_assigned_p ne ""}] - set currently_assigned_p [template::util::is_true $currently_assigned_p] + set currently_assigned_p [string is true -strict $currently_assigned_p] set db_assigned_p [db_boolean $assigned_p] Index: openacs-4/packages/workflow/tcl/state-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/state-procs.tcl,v diff -u -r1.24 -r1.25 --- openacs-4/packages/workflow/tcl/state-procs.tcl 12 Feb 2019 18:45:14 -0000 1.24 +++ openacs-4/packages/workflow/tcl/state-procs.tcl 28 Sep 2022 09:12:55 -0000 1.25 @@ -767,7 +767,7 @@ set action_info(${action_id},short_name) $short_name set action_info(${action_id},trigger_type) [string trim $trigger_type] set action_info(${action_id},parent_action_id) $parent_action_id - if { [template::util::is_true $always_enabled_p] && [lsearch { user auto message } $trigger_type] != -1 } { + if { [string is true -strict $always_enabled_p] && [lsearch { user auto message } $trigger_type] != -1 } { set action_info(${action_id},always_enabled_p) 1 } else { set action_info(${action_id},always_enabled_p) 0 @@ -798,7 +798,7 @@ where a.workflow_id = :workflow_id and a.action_id = e.action_id } { - set assigned_p_${state_id}($action_id) [template::util::is_true $assigned_p] + set assigned_p_${state_id}($action_id) [string is true -strict $assigned_p] } # 3. Put stuff back into the output array