Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v diff -u -r1.84 -r1.85 --- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 28 Dec 2024 15:39:56 -0000 1.84 +++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 31 Jan 2025 13:10:28 -0000 1.85 @@ -721,7 +721,8 @@ ad_proc -public ad_return_url { -urlencode:boolean {-path_encode:boolean true} - -qualified:boolean + {-qualified:boolean} + {-exclude ""} {-default_url .} {extra_args ""} } { @@ -754,6 +755,7 @@ @author Don Baccus (dhogaza@pacifier.com) @param path_encode If false do no URL-encode the result + @param exclude list of form variables to be excluded in the result @param default_url When there is no connection, fall back to this URL @param qualified If provided the return URL will be fully qualified including http or https. @param extra_args A list of {name value} lists to append to the query string @@ -765,7 +767,7 @@ } if {[ns_conn isconnected]} { - set query_list [export_vars -entire_form] + set query_list [export_vars -exclude $exclude -entire_form] set base_url [ns_conn url] } else { set query_list ""