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 -N -r1.114.2.16 -r1.114.2.17 --- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 17 Oct 2020 16:47:14 -0000 1.114.2.16 +++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 19 Oct 2020 15:19:13 -0000 1.114.2.17 @@ -1124,9 +1124,27 @@ {-package_key ""} {-parameter ""} {-parameter_id ""} + {parameter_id_legacy ""} } { Unregisters a parameter from the system. + + @param parameter_id_legacy DEPRECATED: previous versions of this + proc would specify parameter_id as an + unnamed argument. This has now be + changed to a flag, but the old syntax + is still tolerated in old code. This + will generate a warning though and will + be dropped in future versions. } { + # Transitional code to support legacy definition of parameter_id + # specified as an unnamed argument. + if {$parameter_id_legacy ne "" && + $parameter_id eq "" + } { + set parameter_id $parameter_id_legacy + ns_log warning "apm_parameter_unregister: use of unnamed argument is deprecated for this proc, please use -parameter_id flag" + } + if { $parameter_id eq "" } { set parameter_id [db_string select_parameter_id { select parameter_id