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.208 -r1.209 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 21 Oct 2017 17:39:03 -0000 1.208 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 22 Oct 2017 09:54:44 -0000 1.209 @@ -1404,7 +1404,7 @@ ::xo::Page requireJS "/resources/xowiki/get-http-object.js" set p_link [${:__including_page} pretty_link] - set return_url "[::xo::cc url]?[::xo::cc actual_query]" + set return_url [::xo::cc url]?[::xo::cc actual_query] set weblog_page [$package_id get_parameter weblog_page weblog] set save_tag_link [$package_id make_link -link $p_link ${:__including_page} \ save-tags return_url] @@ -3458,7 +3458,7 @@ if {${:parent_id} != [${:package_id} folder_id]} { set parent_id ${:parent_id} } - set return_url ${:return_url} + if {[info exists :return_url]} {set return_url ${:return_url}} set :link [${:package_id} make_link -link ${:base} ${:form} ${:method} return_url parent_id] } if {${:link} eq ""} { Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v diff -u -r1.46 -r1.47 --- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 21 Oct 2017 17:19:45 -0000 1.46 +++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 22 Oct 2017 09:54:44 -0000 1.47 @@ -108,13 +108,13 @@ append extra_where_clause "and " \ [::xo::dc since_interval_condition p.publish_date "${:days} days"] } - if {$entries_of ne ""} { - if {[regexp {^[0-9 ]+$} $entries_of]} { + if {${:entries_of} ne ""} { + if {[regexp {^[0-9 ]+$} ${:entries_of}]} { # form item_ids were provided as a filter - set form_items $entries_of + set form_items ${:entries_of} } else { set form_items [::xowiki::Weblog instantiate_forms \ - -forms $entries_of \ + -forms ${:entries_of} \ -package_id $package_id] }