Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v diff -u -r1.70.2.2 -r1.70.2.3 --- openacs-4/packages/xowiki/tcl/weblog-procs.tcl 3 Sep 2015 08:15:53 -0000 1.70.2.2 +++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl 3 Sep 2015 08:37:58 -0000 1.70.2.3 @@ -277,7 +277,7 @@ set range [expr {$nr > 1 ? "$from - $to" : $from}] if {$filter_msg ne ""} { - set all_href [::xo::cc url]?[::xo::update_query $query summary 0] + set all_href [$package_id $package_url][$package_id get_parameter weblog_page weblog-portlet] append filter_msg ", $range of $nr_items $entry_label (all, $flink)" } else { append filter_msg "Showing $range of $nr_items $entry_label ($flink)" @@ -289,8 +289,7 @@ if {$next_p} { set query [::xo::update_query $query page_number [expr {$page_number + 1}]] set next_page_link [::xo::cc url]?$query - } - if {$prev_p} { + } elseif {$prev_p} { set query [::xo::update_query $query page_number [expr {$page_number-1}]] set prev_page_link [::xo::cc url]?$query }