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 -N -r1.26.2.11 -r1.26.2.12
--- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	29 Sep 2022 16:04:05 -0000	1.26.2.11
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	29 Sep 2022 16:10:37 -0000	1.26.2.12
@@ -41,12 +41,12 @@
     @param value what value to set said parameter to
 } {
 
-    #db_exec_plsql set_parameter_value {}
+    db_exec_plsql set_parameter_value {}
 
-    acs::dc call apm set_value \
-        -package_key $package_key \
-        -parameter $parameter \
-        -attr_value $value
+    # ::acs::dc call apm set_value \
+    #     -package_key $package_key \
+    #     -parameter $parameter \
+    #     -attr_value $value
 
     acs::clusterwide callback subsite::global_parameter_changed \
         -package_key $package_key \
@@ -132,12 +132,12 @@
     # keep the xql files for "db_exec_plsql" around, maybe some other
     # use cases hint a different approach.
     #
-    #db_exec_plsql set_parameter_value {}
+    db_exec_plsql set_parameter_value {}
 
-    acs::dc call apm set_value \
-        -package_id $package_id \
-        -parameter_name $parameter \
-        -attr_value $value
+    #::acs::dc call apm set_value \
+    #    -package_id $package_id \
+    #    -parameter_name $parameter \
+    #    -attr_value $value
 
     acs::clusterwide callback subsite::parameter_changed \
         -package_id $package_id \
@@ -179,7 +179,6 @@
     #
     if {$package_id ne ""} {
         set package_key [apm_package_key_from_id $package_id]
-        #set value [ad_parameter_from_file $parameter $package_key $default]
         set value [ad_parameter_from_file $parameter $package_key]
     }
 
@@ -189,7 +188,7 @@
     }
 
     # 3. use the default value
-    if {$value eq ""} {        
+    if {$value eq ""} {
         set value $default
     }
 
@@ -268,7 +267,6 @@
         #    configuration file; this value has highest precedence.
         #
         set value [ad_parameter_from_file $parameter $package_key]
-        #set value [ad_parameter_from_file $parameter $package_key]
 
         #
         # 2. Try to get the value from a global package parameter.