Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	10 Sep 2003 09:34:14 -0000	1.52
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	19 Sep 2003 16:13:25 -0000	1.53
@@ -758,13 +758,22 @@
 }
 
 ad_proc -public apm_parameter_unregister { 
-    {
-	-callback apm_dummy_callback
-    } 
+    {-callback apm_dummy_callback}
+    {-package_key ""}
+    {-parameter ""}
     parameter_id
 } {
     Unregisters a parameter from the system.
 } {
+    if { [empty_string_p $parameter_id] } {
+        set parameter_id [db_string select_parameter_id { 
+            select parameter_id
+            from   apm_parameters
+            where  package_key = :package_key
+            and    parameter_name = :parameter
+        }]
+    }
+
     ns_log Debug "APM Unregistering parameter $parameter_id."
     db_foreach all_parameters_packages {
 	select package_id, parameter_id, parameter_name