Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.129 -r1.130
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 11 Sep 2024 06:15:48 -0000 1.129
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 8 Oct 2024 14:13:36 -0000 1.130
@@ -495,11 +495,13 @@
if {![info exists repository($package_key)]} continue
- array unset version
- array set version $repository($package_key)
+ set version $repository($package_key)
set satisfied_p 1
- foreach req [concat $version(embeds) $version(extends) $version(requires)] {
+ foreach req [concat \
+ [dict get $version embeds] \
+ [dict get $version extends] \
+ [dict get $version requires]] {
lassign $req req_uri req_version
if { ![info exists provided($req_uri)]
@@ -533,7 +535,7 @@
lappend result(packages) $package_key
# Record what this package provides, and remove it from the required list, if appropriate
- foreach prov $version(provides) {
+ foreach prov [dict get $version provides] {
lassign $prov prov_uri prov_version
# If what we provide is not already provided, or the alredady provided version is
# less than what we provide, record this new provision
Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.117 -r1.118
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 11 Sep 2024 06:15:48 -0000 1.117
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 8 Oct 2024 14:13:36 -0000 1.118
@@ -293,22 +293,22 @@
} {
- array unset ::apm_visited_package_keys
+ unset -nocomplain ::apm_visited_package_keys
set ::apm_package_url_resolution [list]
apm_package_list_url_resolution $package_key
nsv_set apm_package_url_resolution $package_key $::apm_package_url_resolution
- array unset ::apm_visited_package_keys
+ unset -nocomplain ::apm_visited_package_keys
set ::apm_package_inherit_order [list]
apm_one_package_inherit_order $package_key
nsv_set apm_package_inherit_order $package_key $::apm_package_inherit_order
- array unset ::apm_visited_package_keys
+ unset -nocomplain ::apm_visited_package_keys
set ::apm_package_load_libraries_order [list]
apm_one_package_load_libraries_dependencies $package_key
nsv_set apm_package_load_libraries_order $package_key $::apm_package_load_libraries_order
- array unset ::apm_visited_package_keys
+ unset -nocomplain ::apm_visited_package_keys
set ::apm_package_descendents [list]
apm_one_package_descendents $package_key
nsv_set apm_package_descendents $package_key $::apm_package_descendents
Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 3 Sep 2024 15:37:34 -0000 1.88
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 8 Oct 2024 14:13:36 -0000 1.89
@@ -1153,7 +1153,7 @@
ad_script_abort
}
if { $__refreshing_p } {
- uplevel array unset ${form_name}:error
+ uplevel unset -nocomplain -- ${form_name}:error
if { [info exists on_refresh] } {
ad_page_contract_eval uplevel #$level $on_refresh
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.143 -r1.144
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 3 Sep 2024 15:37:34 -0000 1.143
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 8 Oct 2024 14:13:37 -0000 1.144
@@ -657,19 +657,18 @@
if { [llength $filters] > 0 } {
set return_val [list]
foreach child_url $child_urls {
- array unset site_node
- if {![catch {array set site_node [:get -url $child_url]}]} {
+ if {![catch {set site_node [:get -url $child_url]}]} {
set passed_p 1
foreach { elm val } $filters {
- if { $site_node($elm) ne $val } {
+ if { [dict get $site_node $elm] ne $val } {
set passed_p 0
break
}
}
if { $passed_p } {
if { $element ne "" } {
- lappend return_val $site_node($element)
+ lappend return_val [dict get $site_node $element]
} else {
lappend return_val $child_url
}
@@ -679,9 +678,8 @@
} elseif { $element ne "" } {
set return_val [list]
foreach child_url $child_urls {
- array unset site_node
- if {![catch {array set site_node [:get -url $child_url]}]} {
- lappend return_val $site_node($element)
+ if {![catch {set site_node [:get -url $child_url]}]} {
+ lappend return_val [dict get $site_node $element]
}
}
} else {
@@ -954,7 +952,7 @@
}
:method flush_per_request_cache {} {
- array unset ::__node_id
+ unset -nocomplain ::__node_id
}
:public method flush_pattern {{-partition_key ""} pattern} {
Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.111 -r1.112
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 11 Sep 2024 06:15:48 -0000 1.111
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 8 Oct 2024 14:13:37 -0000 1.112
@@ -2015,7 +2015,7 @@
} else {
# Reset/create attribute array
- array unset attribute_array
+ unset -nocomplain attribute_array
# Parse the attributes
ad_parse_html_attributes -attribute_array attribute_array $attributes