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 " | "]