Index: openacs-4/packages/bug-tracker/lib/pagination.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/lib/pagination.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/bug-tracker/lib/pagination.tcl 30 Apr 2018 09:38:34 -0000 1.5 +++ openacs-4/packages/bug-tracker/lib/pagination.tcl 12 Mar 2019 16:47:23 -0000 1.6 @@ -26,14 +26,12 @@ set interval_high $row_count } set href "$pagination_filter_base_url&offset=[expr {$interval_low - 1}]" - set interval_label [ad_decode $interval_low $row_count "$interval_high" "$interval_low - $interval_high"] - lappend pagination_filter_list [ad_decode [expr {1 + $offset}] \ - $interval_low \ - $interval_label \ - [subst {$interval_label}]] + set interval_label [expr {$interval_low == $row_count ? $interval_high : "$interval_low - $interval_high"}] + lappend pagination_filter_list [expr {1 + $offset == $interval_low ? + $interval_label : [subst {$interval_label}]}] set interval_high [expr {$interval_high + $interval_size}] - set interval_low [expr {$interval_high - [expr {$interval_size - 1}]}] + set interval_low [expr {$interval_high - $interval_size - 1}] } set pagination_filter [join $pagination_filter_list " | "]