Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -r1.239.2.39 -r1.239.2.40 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 1 Feb 2020 08:10:36 -0000 1.239.2.39 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 1 Feb 2020 09:20:22 -0000 1.239.2.40 @@ -4691,7 +4691,7 @@ } } - set given_includelet_key [::xo::cc query_parameter includelet_key ""] + set given_includelet_key [ns_base64urldecode [::xo::cc query_parameter includelet_key:graph ""]] if {$given_includelet_key ne ""} { if {$given_includelet_key eq $includelet_key && [info exists generate]} { if {$generate eq "csv"} { @@ -4718,11 +4718,13 @@ append html [t1 asHTML] if {$csv} { - set csv_href "[::xo::cc url]?[::xo::cc actual_query]&includelet_key=[ns_urlencode $includelet_key]&generate=csv" + set encoded_includelet_key [ns_urlencode [ns_base64urlencode $includelet_key]] + set csv_href "[::xo::cc url]?[::xo::cc actual_query]&includelet_key=$encoded_includelet_key&generate=csv" lappend links "csv" } if {[info exists voting_form]} { - set href "[::xo::cc url]?[::xo::cc actual_query]&includelet_key=[ns_urlencode $includelet_key]&generate=voting_form" + set encoded_includelet_key [ns_urlencode [ns_base64urlencode $includelet_key]] + set href "[::xo::cc url]?[::xo::cc actual_query]&includelet_key=$encoded_includelet_key&generate=voting_form" lappend links " Generate Voting Form $voting_form" } append html [join $links ,] Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.368.2.54 -r1.368.2.55 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 31 Jan 2020 17:59:51 -0000 1.368.2.54 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 1 Feb 2020 09:20:22 -0000 1.368.2.55 @@ -437,7 +437,7 @@ set attributes [lsort -dictionary [array names vars]] # make sure, we the includelet honors the cvs generation set includelet_key name:form-usages,form_item_ids:$form_item_id,field_names:[join $attributes " "], - ::xo::cc set queryparm(includelet_key) $includelet_key + ::xo::cc set queryparm(includelet_key) [ns_base64urlencode $includelet_key] # call the includelet :www-view [:include [list form-usages -field_names $attributes \ -extra_form_constraints _creation_user:numeric,format=%d \