Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v diff -u -r1.39.2.7 -r1.39.2.8 --- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 5 Dec 2021 16:16:18 -0000 1.39.2.7 +++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 29 Aug 2022 14:17:23 -0000 1.39.2.8 @@ -336,7 +336,7 @@ set doc_result(doc_message) $errorMsg } - set snapshot_p [template::util::is_true $doc_result(snapshot_p)] + set snapshot_p [string is true -strict $doc_result(snapshot_p)] auth::sync::job::end_get_document \ -job_id $job_id \ Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v diff -u -r1.44.2.4 -r1.44.2.5 --- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 3 Mar 2021 03:49:14 -0000 1.44.2.4 +++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 29 Aug 2022 14:17:23 -0000 1.44.2.5 @@ -162,7 +162,7 @@ -package_key "acs-authentication" \ -default 0] - if { ![template::util::is_true $job(interactive_p)] && $email_p } { + if { ![string is true -strict $job(interactive_p)] && $email_p } { # Only send out email if not an interactive job ad_try { Index: openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl,v diff -u -r1.28.2.5 -r1.28.2.6 --- openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl 6 Oct 2021 12:19:36 -0000 1.28.2.5 +++ openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl 29 Aug 2022 14:17:23 -0000 1.28.2.6 @@ -80,7 +80,7 @@ aa_log "Elapsed time: $job(run_time_seconds) seconds" - aa_false "Not interactive" [template::util::is_true $job(interactive_p)] + aa_false "Not interactive" [string is true -strict $job(interactive_p)] aa_equals "Number of actions" $job(num_actions) 2 @@ -360,7 +360,7 @@ aa_true "Elapsed time less than 30 seconds" {$job(run_time_seconds) < 30} - aa_false "Not interactive" [template::util::is_true $job(interactive_p)] + aa_false "Not interactive" [string is true -strict $job(interactive_p)] aa_equals "Number of actions" $job(num_actions) 6 @@ -511,7 +511,7 @@ aa_true "Elapsed time less than 30 seconds" {$job(run_time_seconds) < 30} - aa_false "Not interactive" [template::util::is_true $job(interactive_p)] + aa_false "Not interactive" [string is true -strict $job(interactive_p)] aa_equals "Number of actions" $job(num_actions) [expr {$num_users_not_banned + 1}] @@ -713,7 +713,7 @@ -entry_id $entry_id \ -array entry - aa_false "Success_p is false" [template::util::is_true $entry(success_p)] + aa_false "Success_p is false" [string is true -strict $entry(success_p)] array unset elm_msgs array set elm_msgs $entry(element_messages) Index: openacs-4/packages/acs-developer-support/www/request-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.tcl,v diff -u -r1.25.2.3 -r1.25.2.4 --- openacs-4/packages/acs-developer-support/www/request-info.tcl 3 Mar 2020 14:53:25 -0000 1.25.2.3 +++ openacs-4/packages/acs-developer-support/www/request-info.tcl 29 Aug 2022 14:17:23 -0000 1.25.2.4 @@ -265,7 +265,7 @@ append value "$command $statement_pool $handle
[ns_quotehtml $sql]" } - if { $command ne "getrow" || [template::util::is_true $getrow_p] } { + if { $command ne "getrow" || [string is true -strict $getrow_p] } { multirow append dbreqs $handle [lindex $command 0] $sql [format %.2f [expr { $end - $start }]] $value } Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v diff -u -r1.60.2.7 -r1.60.2.8 --- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl 30 Mar 2021 15:49:51 -0000 1.60.2.7 +++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl 29 Aug 2022 14:17:23 -0000 1.60.2.8 @@ -253,7 +253,7 @@ } { set message_list [list] db_foreach last_sync_messages {} { - if { ![template::util::is_true $deleted_p] } { + if { ![string is true -strict $deleted_p] } { lappend message_list $message_key $message } } Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v diff -u -r1.68.2.22 -r1.68.2.23 --- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 19 Aug 2022 14:23:05 -0000 1.68.2.22 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 29 Aug 2022 14:17:23 -0000 1.68.2.23 @@ -499,8 +499,8 @@ # Deleting/undeleting? # if { [info exists edit_array(deleted_p)] } { - set edit_array(deleted_p) [db_boolean [template::util::is_true $edit_array(deleted_p)]] - if { [template::util::is_true $edit_array(deleted_p)] } { + set edit_array(deleted_p) [db_boolean [string is true -strict $edit_array(deleted_p)]] + if { [string is true -strict $edit_array(deleted_p)] } { set delete_p t set delete_comment "deleted" } else { Index: openacs-4/packages/acs-lang/www/admin/locale-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-delete.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/acs-lang/www/admin/locale-delete.tcl 20 Dec 2019 21:47:58 -0000 1.9.2.1 +++ openacs-4/packages/acs-lang/www/admin/locale-delete.tcl 29 Aug 2022 14:17:23 -0000 1.9.2.2 @@ -26,7 +26,7 @@ if { [info exists confirm_p] && $confirm_p ne "" - && [template::util::is_true $confirm_p] + && [string is true -strict $confirm_p] } { db_transaction { Index: openacs-4/packages/acs-lang/www/admin/message-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-delete.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/acs-lang/www/admin/message-delete.tcl 20 Dec 2019 21:47:58 -0000 1.10.2.1 +++ openacs-4/packages/acs-lang/www/admin/message-delete.tcl 29 Aug 2022 14:17:23 -0000 1.10.2.2 @@ -32,7 +32,7 @@ if { [info exists confirm_p] && $confirm_p ne "" - && [template::util::is_true $confirm_p] + && [string is true -strict $confirm_p] } { lang::message::delete \ -package_key $package_key \ Index: openacs-4/packages/acs-lang/www/admin/message-undelete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-undelete.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/acs-lang/www/admin/message-undelete.tcl 20 Dec 2019 21:47:58 -0000 1.1.2.2 +++ openacs-4/packages/acs-lang/www/admin/message-undelete.tcl 29 Aug 2022 14:17:23 -0000 1.1.2.3 @@ -32,7 +32,7 @@ if { [info exists confirm_p] && $confirm_p ne "" - && [template::util::is_true $confirm_p] + && [string is true -strict $confirm_p] } { lang::message::undelete \ -package_key $package_key \ Index: openacs-4/packages/acs-lang/www/admin/message-unregister.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-unregister.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/acs-lang/www/admin/message-unregister.tcl 20 Dec 2019 21:47:58 -0000 1.1.2.2 +++ openacs-4/packages/acs-lang/www/admin/message-unregister.tcl 29 Aug 2022 14:17:23 -0000 1.1.2.3 @@ -32,7 +32,7 @@ if { [info exists confirm_p] && $confirm_p ne "" - && [template::util::is_true $confirm_p] + && [string is true -strict $confirm_p] } { lang::message::unregister $package_key $message_key Index: openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl,v diff -u -r1.7.2.12 -r1.7.2.13 --- openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl 16 Feb 2021 14:19:51 -0000 1.7.2.12 +++ openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl 29 Aug 2022 14:17:23 -0000 1.7.2.13 @@ -22,7 +22,6 @@ party::get_by_email acs_root_dir mime::uniqueID - template::util::is_true util::random util::random_list_element util::random_range @@ -85,8 +84,8 @@ if { $pp in $bools_list } { aa_equals "r48 Changed sched_parameter '${pp}' \ value '$params_def(${pp})' to '${val}' set" \ - [template::util::is_true $params_new(${pp})] \ - [template::util::is_true $val] + [string is true -strict $params_new(${pp})] \ + [string is true -strict $val] } else { if { $params_new(${pp}) eq $params_def(${pp}) } { if { $pp eq "mpri_max" \ @@ -108,8 +107,8 @@ if { $pp in $bools_list } { aa_equals "r62 Unchanged sched_parameter '${pp}' \ value '$params_def(${pp})' to '$params_new(${pp})' set" \ - [template::util::is_true $params_new(${pp})] \ - [template::util::is_true $params_def(${pp})] + [string is true -strict $params_new(${pp})] \ + [string is true -strict $params_def(${pp})] } else { aa_equals "r67 Unchanged sched_parameter '${pp}' \ value '$params_def(${pp})' to '$params_new(${pp})' set" \ Index: openacs-4/packages/acs-subsite/lib/login.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v diff -u -r1.41.2.10 -r1.41.2.11 --- openacs-4/packages/acs-subsite/lib/login.tcl 26 Jun 2022 19:37:07 -0000 1.41.2.10 +++ openacs-4/packages/acs-subsite/lib/login.tcl 29 Aug 2022 14:17:23 -0000 1.41.2.11 @@ -262,7 +262,7 @@ -password $password \ -host_node_id $host_node_id \ -persistent=[expr {$allow_persistent_login_p - && [template::util::is_true $persistent_p]}]] + && [string is true -strict $persistent_p]}]] # Handle authentication problems switch -- $auth_info(auth_status) { Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v diff -u -r1.60.2.15 -r1.60.2.16 --- openacs-4/packages/acs-subsite/tcl/group-procs.tcl 1 Feb 2021 10:58:35 -0000 1.60.2.15 +++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl 29 Aug 2022 14:17:24 -0000 1.60.2.16 @@ -666,7 +666,7 @@ set cascade [db_boolean $cascade_p] set result [db_string user_is_member {} -default "f"] - return [template::util::is_true $result] + return [string is true -strict $result] } ad_proc -public group::party_member_p { Index: openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl,v diff -u -r1.5.2.2 -r1.5.2.3 --- openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl 21 Jul 2020 14:08:50 -0000 1.5.2.2 +++ openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl 29 Aug 2022 14:17:24 -0000 1.5.2.3 @@ -202,7 +202,7 @@ } template::multirow foreach $navigation_multirow { - if { [template::util::is_true $selected_p] } { + if { [string is true -strict $selected_p] } { array set row [list label $label url $url] break } Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v diff -u -r1.68.2.22 -r1.68.2.23 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 19 Oct 2021 08:32:07 -0000 1.68.2.22 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 29 Aug 2022 14:17:24 -0000 1.68.2.23 @@ -552,7 +552,7 @@ } template::multirow foreach $sections_multirow { - if { [template::util::is_true $selected_p] } { + if { [string is true -strict $selected_p] } { set row(label) $label set row(url) $url break Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v diff -u -r1.47.2.10 -r1.47.2.11 --- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl 18 Feb 2022 11:36:10 -0000 1.47.2.10 +++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl 29 Aug 2022 14:17:24 -0000 1.47.2.11 @@ -116,7 +116,7 @@ && $party_id == 0 && [ad_conn user_id] == 0 && [ad_conn untrusted_user_id] != 0 - && ![template::util::is_true $permission_p] + && ![string is true -strict $permission_p] } { # # In case, permission was granted above, the party and ad_conn Index: openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl,v diff -u -r1.9 -r1.9.2.1 --- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 7 Aug 2017 23:47:59 -0000 1.9 +++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 29 Aug 2022 14:17:24 -0000 1.9.2.1 @@ -46,7 +46,7 @@ } { grant permission to access private data } { - if { [template::util::is_true $value] } { + if { [string is true -strict $value] } { permission::grant -party_id $user_id -object_id $object_id -privilege read_private_data } else { permission::revoke -party_id $user_id -object_id $object_id -privilege read_private_data Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v diff -u -r1.35.2.6 -r1.35.2.7 --- openacs-4/packages/acs-tcl/tcl/install-procs.tcl 23 Feb 2021 09:37:33 -0000 1.35.2.6 +++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl 29 Aug 2022 14:17:24 -0000 1.35.2.7 @@ -173,7 +173,7 @@ -package_name $instance_name \ -package_key $package_key] - if {![template::util::is_true $security_inherit_p]} { + if {![string is true -strict $security_inherit_p]} { permission::set_not_inherit -object_id $package_id } @@ -300,7 +300,7 @@ -package_key $package_key \ -context_id $context_id] - if {![template::util::is_true $security_inherit_p]} { + if {![string is true -strict $security_inherit_p]} { permission::set_not_inherit -object_id $package_id } @@ -503,7 +503,7 @@ set site_wide_admin_p [apm_attribute_value -default "" $node site-wide-admin] set local_p [apm_attribute_value -default 0 $node local-p] - set local_p [template::util::is_true $local_p] + set local_p [string is true -strict $local_p] if {$salt ne ""} { set salt_password $password @@ -562,7 +562,7 @@ } if {$result(creation_status) eq "ok"} { - if {[template::util::is_true $site_wide_admin_p]} { + if {[string is true -strict $site_wide_admin_p]} { permission::grant -object_id [acs_magic_object "security_context_root"] \ -party_id $result(user_id) -privilege "admin" } @@ -751,7 +751,7 @@ set view [install::xml::util::get_id $view] } - set directory_p [template::util::is_true $directory_p] + set directory_p [string is true -strict $directory_p] set location_id [location::create -parent_id $parent \ -name $name \ @@ -774,7 +774,7 @@ set type [apm_attribute_value -default literal $child type] set subtree_p [apm_attribute_value -default f $child subtree-p] - set subtree_p [template::util::is_true $subtree_p] + set subtree_p [string is true -strict $subtree_p] if {$type eq "id"} { set value [install::xml::util::get_id $value] @@ -791,7 +791,7 @@ set exports [apm_attribute_value -default "" $child exports] set subtree_p [apm_attribute_value -default f $child subtree-p] - set subtree_p [template::util::is_true $subtree_p] + set subtree_p [string is true -strict $subtree_p] location::parameter::create -location_id $location_id \ -name "forward::$name" \ @@ -901,7 +901,7 @@ set directory_p [apm_attribute_value -default f $step directory-p] xml_node_set_attribute $step directory-p \ - [template::util::is_true $directory_p] + [string is true -strict $directory_p] set step_id [::install::xml::action::location $step] Index: openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl,v diff -u -r1.26.2.9 -r1.26.2.10 --- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl 25 Aug 2022 14:16:43 -0000 1.26.2.9 +++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl 29 Aug 2022 14:17:24 -0000 1.26.2.10 @@ -102,7 +102,7 @@ # Special parsing for boolean parameters, true and false can be written # in many different ways if { $boolean_p } { - set value [template::util::is_true $value] + set value [string is true -strict $value] } return $value @@ -201,7 +201,7 @@ # can be written in many different ways. # if { $boolean_p } { - set value [template::util::is_true $value] + set value [string is true -strict $value] } return $value Index: openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl,v diff -u -r1.8.2.8 -r1.8.2.9 --- openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl 25 Jun 2022 12:05:52 -0000 1.8.2.8 +++ openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl 29 Aug 2022 14:17:24 -0000 1.8.2.9 @@ -251,7 +251,7 @@ set attributes(id) "richtext__$element(form_id)__$element(id)" if { [info exists element(htmlarea_p)] && $element(htmlarea_p) ne "" } { - set htmlarea_p [template::util::is_true $element(htmlarea_p)] + set htmlarea_p [string is true -strict $element(htmlarea_p)] } else { set htmlarea_p [parameter::get \ -package_id [apm_package_id_from_key "acs-templating"] \ 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 -r1.59.2.4 -r1.59.2.5 --- openacs-4/packages/acs-templating/tcl/form-procs.tcl 18 Apr 2022 08:43:02 -0000 1.59.2.4 +++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 29 Aug 2022 14:17:24 -0000 1.59.2.5 @@ -496,13 +496,13 @@ } if { [info exists form_properties(has_submit)] - && [template::util::is_true $form_properties(has_submit)] + && [string is true -strict $form_properties(has_submit)] } { set form_properties(edit_buttons) {} } if { [info exists form_properties(has_edit)] - && [template::util::is_true $form_properties(has_edit)] + && [string is true -strict $form_properties(has_edit)] } { set form_properties(display_buttons) {} } Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v diff -u -r1.94.2.19 -r1.94.2.20 --- openacs-4/packages/acs-templating/tcl/list-procs.tcl 18 Apr 2022 08:43:02 -0000 1.94.2.19 +++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 29 Aug 2022 14:17:24 -0000 1.94.2.20 @@ -612,7 +612,7 @@ set list_properties(paginator_name) $paginator_name set flush_p f - if { [template::util::is_true $list_properties(page_flush_p)] } { + if { [string is true -strict $list_properties(page_flush_p)] } { set flush_p t } @@ -1151,7 +1151,7 @@ -element_name $element_name] upvar #$level $element_ref element_properties - if { ![template::util::is_true $element_properties(hide_p)] } { + if { ![string is true -strict $element_properties(hide_p)] } { incr elements:rowcount # get a reference by index for the multirow data source @@ -1636,7 +1636,7 @@ } } # Get the clear_url - if { ![template::util::is_true $filter_properties(has_default_p)] }\ + if { ![string is true -strict $filter_properties(has_default_p)] }\ { set filter_properties(clear_url) [get_url \ -name $name \ @@ -1815,7 +1815,7 @@ upvar #$level $filter_ref filter_properties - if { ![template::util::is_true $filter_properties(hide_p)] } { + if { ![string is true -strict $filter_properties(hide_p)] } { # Loop over 'values' and 'url' simultaneously foreach \ @@ -3156,7 +3156,7 @@ foreach filter_ref $list_properties(filter_refs) { upvar #$level $filter_ref filter_properties - if { ![template::util::is_true $filter_properties(hide_p)] } { + if { ![string is true -strict $filter_properties(hide_p)] } { foreach \ elm $filter_properties(values) \ url $filter_properties(urls) \ Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v diff -u -r1.66.2.10 -r1.66.2.11 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 26 Jun 2022 19:30:40 -0000 1.66.2.10 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 29 Aug 2022 14:17:24 -0000 1.66.2.11 @@ -469,7 +469,7 @@ } if { [info exists element(htmlarea_p)] && $element(htmlarea_p) ne "" } { - set htmlarea_p [template::util::is_true $element(htmlarea_p)] + set htmlarea_p [string is true -strict $element(htmlarea_p)] } else { set htmlarea_p [parameter::get \ -package_id $package_id_templating \ Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v diff -u -r1.49.2.26 -r1.49.2.27 --- openacs-4/packages/acs-templating/tcl/tag-init.tcl 14 Aug 2022 08:05:46 -0000 1.49.2.26 +++ openacs-4/packages/acs-templating/tcl/tag-init.tcl 29 Aug 2022 14:17:24 -0000 1.49.2.27 @@ -61,7 +61,7 @@ set src [ns_set iget $params src] set slave_properties_p [template::get_attribute master $params slave-properties-p 0] - if {[template::util::is_true $slave_properties_p]} { + if {[string is true -strict $slave_properties_p]} { template::adp_append_code { foreach {__key __value} $__args { if {$__key ne "__adp_slave"} { Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v diff -u -r1.27.2.2 -r1.27.2.3 --- openacs-4/packages/acs-templating/tcl/tag-procs.tcl 16 Nov 2019 15:09:53 -0000 1.27.2.2 +++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl 29 Aug 2022 14:17:25 -0000 1.27.2.3 @@ -215,19 +215,19 @@ } true { - #append condition "\[template::util::is_true $arg1\]" + #append condition "\[string is true -strict $arg1\]" append condition "\[string is true -strict $arg1\]" set next $i } false { - append condition "!\[template::util::is_true $arg1\]" + append condition "!\[string is true -strict $arg1\]" set next $i } default { # treat