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.198 -r1.199 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 23 Jun 2015 08:04:10 -0000 1.198 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 1 Jul 2015 19:40:49 -0000 1.199 @@ -1402,13 +1402,12 @@ set tags [lsort [::xowiki::Page get_tags -user_id [::xo::cc user_id] \ -item_id [$__including_page item_id] -package_id $package_id]] - set href [$package_id package_url]$weblog_page?summary=$summary&tag - set entries [list] - #foreach tag $tags {lappend entries "$tag"} - set href [$package_id package_url]/tag/ - foreach tag $tags {lappend entries ""} + foreach tag $tags { + set href [export_vars -base [$package_id package_url]/tag/$tag {summary}] + lappend entries "" + } set tags_with_links [join [lsort $entries] {, }] if {![my exists id]} {my set id [::xowiki::Includelet html_id [self]]} @@ -1441,7 +1440,7 @@ set weblog_page [$package_id get_parameter weblog_page weblog] set entries [list] - set href [$package_id package_url]$weblog_page?summary=$summary + set href [export_vars -base [$package_id package_url]$weblog_page {summary}] set notification_type "" if {[$package_id get_parameter "with_notifications" 1] && [::xo::cc user_id] != 0} { ;# notifications require login @@ -3993,7 +3992,7 @@ set page_link [$p pretty_link] if {[info exists wf]} { - set view_link $wf_link?m=create-or-use&p.form=[$p name] + set view_link [export_vars -base $wf_link {{m create-or-use} {p.form "[$p name]"}}] } else { set view_link $page_link }