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.12 -r1.26.2.13
--- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	29 Sep 2022 16:10:37 -0000	1.26.2.12
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	14 May 2023 23:08:52 -0000	1.26.2.13
@@ -43,10 +43,10 @@
 
     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 \
@@ -134,7 +134,7 @@
     #
     db_exec_plsql set_parameter_value {}
 
-    #::acs::dc call apm set_value \
+    #acs::dc call apm set_value \
     #    -package_id $package_id \
     #    -parameter_name $parameter \
     #    -attr_value $value
@@ -179,6 +179,7 @@
     #
     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]
     }
 
@@ -188,7 +189,7 @@
     }
 
     # 3. use the default value
-    if {$value eq ""} {
+    if {$value eq ""} {        
         set value $default
     }
 
@@ -267,6 +268,7 @@
         #    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.