Index: openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl 13 Mar 2002 22:50:53 -0000 1.10 +++ openacs-4/packages/acs-bootstrap-installer/bootstrap.tcl 18 Jun 2002 19:10:38 -0000 1.11 @@ -119,7 +119,7 @@ } # Load all parameters for enabled package instances. - ad_parameter_cache_all + # ad_parameter_cache_all # Load the Tcl package init files. apm_bootstrap_load_libraries -init acs-tcl Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 15 May 2002 18:47:31 -0000 1.11 +++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 18 Jun 2002 19:10:38 -0000 1.12 @@ -548,13 +548,23 @@ return } if {[info exists set]} { - nsv_set "ad_param_$package_id" $parameter_name $set + nsv_set "ad_param_${package_id}" $parameter_name $set return $set } elseif { [nsv_exists ad_param_$package_id $parameter_name] } { return [nsv_get ad_param_$package_id $parameter_name] } else { - ns_log Warning "APM: $parameter_name does not exist" - return "" + set value [db_string select_parameter_value { + select apm_parameter_values.attr_value + from apm_parameters, + apm_parameter_values + where apm_parameter_values.package_id = :package_id + and apm_parameter_values.parameter_id = apm_parameters.parameter_id + and apm_parameters.parameter_name = :parameter_name + } -default ""] + + nsv_set "ad_param_${package_id}" $parameter_name $value + + return $value } }