Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	9 May 2018 15:33:28 -0000	1.12
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	8 Oct 2022 19:47:09 -0000	1.12.2.1
@@ -7,14 +7,23 @@
 # Make sure we do the setup only once
 if { ![nsv_exists ds_properties enabled_p] } {
     ad_register_filter -critical t -priority 999999 trace * /* ds_trace_filter
-    ad_schedule_proc [parameter::get -package_id [ds_instance_id] -parameter DataSweepInterval -default 900] ds_sweep_data
+    ad_schedule_proc [parameter::get_from_package_key \
+                          -package_key acs-developer-support \
+                          -parameter DataSweepInterval \
+                          -default 900] ds_sweep_data
     nsv_array set ds_request [list]
 
-    nsv_set ds_properties enabled_p [parameter::get -package_id [ds_instance_id] -parameter EnabledOnStartupP -default 0]
+    nsv_set ds_properties enabled_p [parameter::get_from_package_key \
+                                         -package_key acs-developer-support \
+                                         -parameter EnabledOnStartupP \
+                                         -default 0]
 
     # Take the IP list (space or comma separated) and turn it into a Tcl list.
     set IPs [list]
-    foreach ip [lsort -unique [split [parameter::get -package_id [ds_instance_id] -parameter EnabledIPs -default *] { ,}]] { 
+    foreach ip [lsort -unique [split [parameter::get_from_package_key \
+                                          -package_key acs-developer-support \
+                                          -parameter EnabledIPs \
+                                          -default *] { ,}]] { 
         if {$ip eq "*"} {
             # a star means anything will match so just use the * instead
             set IPs "*"
@@ -25,15 +34,30 @@
     }
     nsv_set ds_properties enabled_ips $IPs
 
-    nsv_set ds_properties profiling_enabled_p [parameter::get -package_id [ds_instance_id] -parameter ProfilingEnabledP -default 0]
+    nsv_set ds_properties profiling_enabled_p [parameter::get_from_package_key \
+                                                   -package_key acs-developer-support \
+                                                   -parameter ProfilingEnabledP \
+                                                   -default 0]
 
-    nsv_set ds_properties database_enabled_p [parameter::get -package_id [ds_instance_id] -parameter DatabaseEnabledP -default 0]
+    nsv_set ds_properties database_enabled_p [parameter::get_from_package_key \
+                                                  -package_key acs-developer-support \
+                                                  -parameter DatabaseEnabledP \
+                                                  -default 0]
 
-    nsv_set ds_properties adp_reveal_enabled_p [parameter::get -package_id [ds_instance_id] -parameter AdpRevealEnabledP -default 0]
+    nsv_set ds_properties adp_reveal_enabled_p [parameter::get_from_package_key \
+                                                    -package_key acs-developer-support \
+                                                    -parameter AdpRevealEnabledP \
+                                                    -default 0]
 
-    nsv_set ds_properties page_fragment_cache_p [parameter::get -package_id [ds_instance_id] -parameter PageFragmentCacheP -default 0]
+    nsv_set ds_properties page_fragment_cache_p [parameter::get_from_package_key \
+                                                     -package_key acs-developer-support \
+                                                     -parameter PageFragmentCacheP \
+                                                     -default 0]
 
-    ds_set_user_switching_enabled [parameter::get -package_id [ds_instance_id] -parameter UserSwitchingEnabledP -default 0]
+    ds_set_user_switching_enabled [parameter::get_from_package_key \
+                                       -package_key acs-developer-support \
+                                       -parameter UserSwitchingEnabledP \
+                                       -default 0]
 
     # JCD: used to cache rendered page bits.  cap at 10mb for now.
     ns_cache create ds_page_bits -size 10000000