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.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	15 May 2002 18:47:31 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	30 May 2002 15:45:59 -0000	1.2
@@ -55,6 +55,16 @@
         return $value
     }
 
+    ad_proc -public set_from_package_key {
+        {-package_key:required}
+        {-parameter:required}
+        {-value:required}
+    } {
+        set_value -package_id [apm_package_id_from_key $package_key] \
+                -parameter $parameter \
+                -value $value
+    }
+
     ad_proc -public get_from_package_key {
         {-package_key:required}
         {-parameter:required}