Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 19 Jan 2018 20:56:00 -0000 1.5 +++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 19 Jan 2018 21:22:15 -0000 1.6 @@ -8,9 +8,22 @@ @cvs-id $Id$ } -namespace eval util {} +# +# In order to skip loading of deprecated code, use the following +# snippet in your config file +# +# ns_section ns/server/${server}/acs +# ns_param WithDeprecatedCode 0 +# +if {![ns_config ns/server/[ns_info server]/acs WithDeprecatedCode 1]} { + ns_log notice "deprecated-procs: skip depreacted code" + return +} +ns_log notice "deprecated-procs include depreacted code" +namespace eval util {} + ad_proc -public -deprecated ad_set_typed_form_variable_filter { url_pattern args