Upgrade to 4.2.8
[usit-rt.git] / share / html / Elements / CollectionListPaging
CommitLineData
84fb5b46
MKG
1%# BEGIN BPS TAGGED BLOCK {{{
2%#
3%# COPYRIGHT:
4%#
3ffc5f4f 5%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
84fb5b46
MKG
6%# <sales@bestpractical.com>
7%#
8%# (Except where explicitly superseded by other copyright notices)
9%#
10%#
11%# LICENSE:
12%#
13%# This work is made available to you under the terms of Version 2 of
14%# the GNU General Public License. A copy of that license should have
15%# been provided with this software, but in any event can be snarfed
16%# from www.gnu.org.
17%#
18%# This work is distributed in the hope that it will be useful, but
19%# WITHOUT ANY WARRANTY; without even the implied warranty of
20%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21%# General Public License for more details.
22%#
23%# You should have received a copy of the GNU General Public License
24%# along with this program; if not, write to the Free Software
25%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26%# 02110-1301 or visit their web page on the internet at
27%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
28%#
29%#
30%# CONTRIBUTION SUBMISSION POLICY:
31%#
32%# (The following paragraph is not intended to limit the rights granted
33%# to you to modify and distribute this software under the terms of
34%# the GNU General Public License and is only of importance to you if
35%# you choose to contribute your changes and enhancements to the
36%# community by submitting them to Best Practical Solutions, LLC.)
37%#
38%# By intentionally submitting any modifications, corrections or
39%# derivatives to this work, or any other work intended for use with
40%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
41%# you are the copyright holder for those contributions and you grant
42%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
43%# royalty-free, perpetual, license to use, copy, create derivative
44%# works based on those contributions, and sublicense and distribute
45%# those contributions and any derivatives thereof.
46%#
47%# END BPS TAGGED BLOCK }}}
48<%ARGS>
49$BaseURL => undef
50$Rows => undef
51$TotalFound => undef
52$CurrentPage => undef
53$Pages => undef
54$URLParams => undef
55</%ARGS>
56
57<%INIT>
58$BaseURL = $m->interp->apply_escapes($BaseURL, 'h');
59
60$m->out(qq{<div class="paging">});
61if ($Pages == 1) {
62 $m->out(loc('Page 1 of 1'));
63}
64else{
65$m->out(loc('Page') . ' ');
66my $prev = $m->interp->apply_escapes($m->comp(
3ffc5f4f
MKG
67 '/Elements/QueryString',
68 %$URLParams,
69 Page => ( $CurrentPage - 1 )
70 ), 'h');
84fb5b46 71my $next = $m->interp->apply_escapes($m->comp(
3ffc5f4f
MKG
72 '/Elements/QueryString',
73 %$URLParams,
74 Page => ( $CurrentPage + 1 )
75 ), 'h');
84fb5b46
MKG
76my %show;
77$show{1} = 1;
78$show{$_} = 1 for (($CurrentPage - 2)..($CurrentPage + 2));
79$show{$Pages} = 1;
80my $dots;
81
82for my $number ( 1 .. $Pages ) {
83 if ( $show{$number} ) {
84 $dots = undef;
85 my $qs =
86 $m->interp->apply_escapes($m->comp( '/Elements/QueryString', %$URLParams, Page => $number ), 'h');
3ffc5f4f 87 $m->out(qq{<span class="pagenum">});
84fb5b46
MKG
88 if ( $number == $CurrentPage ) {
89 $m->out(qq{<span class="currentpage">$number</span> });
90 }
91 else {
92 $m->out(qq{<a href="$BaseURL$qs">$number</a> });
93 }
94 }
95 elsif ( not $dots ) {
96 $dots = 1;
97 $m->out(qq{<span class="dots">...</span>});
98 }
3ffc5f4f 99 $m->out(qq{</span>});
84fb5b46
MKG
100}
101
102if ($CurrentPage > 1) {
103 $m->out(qq{<a href="$BaseURL$prev" class="nav">}.loc('Previous') . qq{</a>});
104}
105if (($CurrentPage * $Rows) < $TotalFound) {
106 $m->out(qq{<a href="$BaseURL$next" class="nav">}.loc('Next').qq{</a>});
107}
108}
109$m->out(qq{</div>});
110</%INIT>