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 -N -r1.70 -r1.70.2.1
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl 24 Jun 2015 15:38:41 -0000 1.70
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl 3 Sep 2015 08:00:53 -0000 1.70.2.1
@@ -274,12 +274,12 @@
if {$page_number ne ""} {
set nr [llength [$items children]]
- set from [expr {($page_number-1)*$page_size+1}]
- set to [expr {($page_number-1)*$page_size+$nr}]
+ set from [expr {($page_number-1) * $page_size + 1}]
+ set to [expr {($page_number-1) * $page_size + $nr}]
set range [expr {$nr > 1 ? "$from - $to" : $from}]
if {$filter_msg ne ""} {
- append filter_msg ", $range of $nr_items $entry_label (all, [ns_quotehtml $flink])"
+ append filter_msg ", $range of $nr_items $entry_label (all, $flink)"
} else {
append filter_msg "Showing $range of $nr_items $entry_label ($flink)"
}
@@ -288,7 +288,7 @@
set prev_p [expr {$page_number > 1}]
if {$next_p} {
- set query [::xo::update_query $query page_number [expr {$page_number+1}]]
+ set query [::xo::update_query $query page_number [expr {$page_number + 1}]]
set next_page_link [::xo::cc url]?$query
}
if {$prev_p} {