Index: openacs.org-dev/packages/acs-tcl/tcl/parameter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-tcl/tcl/parameter-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-tcl/tcl/parameter-procs.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-tcl/tcl/parameter-procs.tcl	5 Aug 2002 21:38:25 -0000	1.1.1.2
@@ -27,6 +27,7 @@
         }
 
         db_exec_plsql set_parameter_value {}
+
         return [ad_parameter_cache -set $value $package_id $parameter]
     }
 
@@ -46,9 +47,17 @@
             ::set package_id [ad_requested_object_id]
         }
 
-        ::set value [ad_parameter_cache $package_id $parameter]
+        # 1. check to see if this parameter is being set in the server's
+        # configuration file; this value has highest precedence
+        ::set value [ad_parameter_from_file $parameter $package_id]
 
+        # 2. check the parameter cache
         if {[empty_string_p $value]} {
+            ::set value [ad_parameter_cache $package_id $parameter]
+        }
+
+        # 3. use the default value
+        if {[empty_string_p $value]} {
             ::set value $default
         }
 
@@ -60,9 +69,10 @@
         {-parameter:required}
         {-value:required}
     } {
-        set_value -package_id [apm_package_id_from_key $package_key] \
-                -parameter $parameter \
-                -value $value
+        set_value \
+            -package_id [apm_package_id_from_key $package_key] \
+            -parameter $parameter \
+            -value $value
     }
 
     ad_proc -public get_from_package_key {
@@ -83,7 +93,7 @@
             ::set value [get \
                 -package_id [apm_package_id_from_key $package_key] \
                 -parameter $parameter \
-                -default $default
+                -default $default \
             ]
         } {
             ::set value $default