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.13 -r1.14 --- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl 27 Feb 2005 22:45:39 -0000 1.13 +++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl 25 Mar 2005 16:49:02 -0000 1.14 @@ -10,6 +10,22 @@ namespace eval parameter {} +ad_proc -public parameter::set_default { + -package_key:required + -parameter:required + -value:required +} { + Set the default for the package parameter to the provided value. + The new default will be used for new installs of the package + but does not change existing package instances values. + + @param package_key what package to set the parameter for + @param parameter which parameter's value to set + @param value what value to set said parameter to +} { + db_dml set {} +} + ad_proc -public parameter::set_value { {-package_id ""} {-parameter:required}