lib/Maypole/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 <p class="pager">Pages:
  14 [%
  15     UNLESS pager_action;
  16         SET pager_action = request.action;
  17     END;
  18
  19     SET begin_page = pager.current_page - 10;
  20     IF begin_page < 1;
  21         SET begin_page = pager.first_page;
  22     END;
  23     SET end_page = pager.current_page + 10;
  24     IF pager.last_page < end_page;
  25         SET end_page = pager.last_page;
  26     END;
  27      FOREACH num = [begin_page .. end_page];
  28           IF num == pager.current_page;
  29             "<span class='current-page'>"; num; "</span>";
  30           ELSE;
  31             SET label = num;
  32             SET args = "?page=" _ num;
  33             SET args = args _ "&order=" _ request.params.order
  34               IF request.params.order;
  35             SET args = args _ "&amp;o2=desc"
  36               IF request.params.o2 == "desc";
  37             FOR col = classmetadata.columns.list;
  38               IF request.params.$col;
  39                 SET args = args _ "&" _ col _ "=" _ request.params.$col;
  40                 SET action = "search";
  41               END;
  42             END;
  43             link(classmetadata.table, pager_action, args, label);
  44           END;
  45      END;
  46 %]
  47 </p>
  48 [% END %]