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}
Index: openacs-4/packages/acs-tcl/tcl/parameter-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/parameter-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.xql	25 Mar 2005 16:49:02 -0000	1.1
@@ -0,0 +1,8 @@
+<?xml version="1.0"?>
+<queryset>
+  <fullquery name="parameter::set_default.set">
+    <querytext>
+      update apm_parameters set default = :value where package_key = :package_key and parameter_name = :parameter
+    </querytext>
+  </fullquery>
+</queryset>