Index: openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl,v diff -u -N -r1.13 -r1.13.2.1 --- openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl 4 Aug 2018 18:55:48 -0000 1.13 +++ openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl 30 Mar 2019 19:46:54 -0000 1.13.2.1 @@ -137,9 +137,9 @@ set with_apps_tooltip(0) "Statistics without Communities" set not_with_apps [expr {!$with_apps}] -set url_all [export_vars -base [ad_conn url] [list [list all $not_all] with_apps with_param]] -set url_apps [export_vars -base [ad_conn url] [list all [list with_apps $not_with_apps] with_param]] -set url_param [export_vars -base [ad_conn url] [list all with_apps [list with_param $not_with_param]]] +set url_all [export_vars -base [ad_conn url] {{all $not_all} with_apps with_param}] +set url_apps [export_vars -base [ad_conn url] {all {with_apps $not_with_apps} with_param}] +set url_param [export_vars -base [ad_conn url] {all with_apps {with_param $not_with_param}}] switch -glob $orderby { *,desc {set order -decreasing} Index: openacs-4/packages/forums/tcl/messages-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v diff -u -N -r1.59.2.1 -r1.59.2.2 --- openacs-4/packages/forums/tcl/messages-procs.tcl 1 Mar 2019 10:15:34 -0000 1.59.2.1 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 30 Mar 2019 19:51:36 -0000 1.59.2.2 @@ -368,12 +368,11 @@ @author Peter Marklund } { - set subject_label "[_ forums.lt_First_post_in_subject]" - set child_label "[_ forums.Last_post_in_subject]" + set subject_label [_ forums.lt_First_post_in_subject] + set child_label [_ forums.Last_post_in_subject] set new_order_by [expr {$order_by eq "posting_date" ? "last_child_post" : "posting_date"}] - set export_vars [export_vars -override [list [list order_by $new_order_by]] {order_by forum_id}] - set toggle_url "[ad_conn url]?${export_vars}" + set toggle_url [export_vars -base [ad_conn url] -override {{order_by $new_order_by}} {order_by forum_id}] if {$order_by eq "posting_date"} { # subject selected set subject_link "$subject_label" Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -N -r1.16.2.2 -r1.16.2.3 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 20 Feb 2019 10:15:35 -0000 1.16.2.2 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 30 Mar 2019 19:54:53 -0000 1.16.2.3 @@ -151,8 +151,8 @@ set documentation [api_proc_documentation -script $proc_index] } } -set procViewToggleURL [export_vars -base proc-view -no_empty [list proc [list source_p [expr {!$source_p}]] version_id]] -set setDefaultURL [export_vars -base set-default [list source_p return_url]] +set procViewToggleURL [export_vars -base proc-view -no_empty {proc {source_p [expr {!$source_p}]} version_id}] +set setDefaultURL [export_vars -base set-default {source_p return_url}] # # Local variables: