Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v diff -u -r1.34 -r1.35 --- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 11 Sep 2024 06:15:46 -0000 1.34 +++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 8 Oct 2024 13:01:17 -0000 1.35 @@ -416,12 +416,7 @@ continue } - if { [array exists pkg_info] } { - array unset pkg_info - } - if { [info exists pkg_info] } { - unset pkg_info - } + unset -nocomplain pkg_info ad_try { array set pkg_info [apm_read_package_info_file $spec_file] Index: openacs-4/packages/acs-admin/www/install/install-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install-2.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-admin/www/install/install-2.tcl 3 Sep 2024 15:37:29 -0000 1.7 +++ openacs-4/packages/acs-admin/www/install/install-2.tcl 8 Oct 2024 13:01:17 -0000 1.8 @@ -55,11 +55,10 @@ if {$pkg ni $install_pkgs} { lappend install_pkgs $pkg } - - array unset version - array set version $repository($pkg) - foreach p $version(install) { + set version $repository($key) + + foreach p [dict get $version install] { if {$p ni $install_pkgs} { lappend install_pkgs $p set fixpoint_p 0 @@ -105,13 +104,12 @@ set comment {} } - array unset version - array set version $repository($key) + set version $repository($key) multirow append install \ $key \ - $version(name) \ - $version(package-name) \ + [dict get $version name] \ + [dict get $version package-name] \ $comment \ $extra_p } Index: openacs-4/packages/acs-admin/www/install/install-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install-3.tcl,v diff -u -r1.12 -r1.13 --- openacs-4/packages/acs-admin/www/install/install-3.tcl 3 Sep 2024 15:37:29 -0000 1.12 +++ openacs-4/packages/acs-admin/www/install/install-3.tcl 8 Oct 2024 13:01:17 -0000 1.13 @@ -45,7 +45,7 @@ while {[llength $to_install] > 0} { foreach package_key $to_install { - array unset version + unset -nocomplain version array set version $repository($package_key) set satisfied_p 1 @@ -86,7 +86,7 @@ foreach package_key $install_order { ns_log Notice "Installing $package_key" - array unset version + unset -nocomplain version array set version $repository($package_key) if { [info exists version(download_url)] && $version(download_url) ne "" } {