]> git.decadent.org.uk Git - maypole.git/blob - templates/factory/pager
Teensy bug - we're not supposed to use 'moniker' in URLs.
[maypole.git] / templates / factory / pager
1 [%#
2
3 =head1 pager
4
5 This controls the pager display at the bottom (by default) of the list
6 and search views. It expects a C<pager> template argument which responds
7 to the L<Data::Page> interface.
8
9 #%]
10 [%
11 IF pager AND pager.first_page != pager.last_page;
12 %]
13
14 <P ALIGN="center">Pages: 
15 [%
16      FOREACH num = [pager.first_page .. pager.last_page];
17           IF num == pager.current_page;
18             "["; num; "] ";
19           ELSE;
20             SET args = "?page=" _ num; # Order?
21             SET label = "[" _ num _ "]";
22           link(classmetadata.table, "list", args, label);
23           END;
24      END;
25 %]
26 </P>
27 [% END %]