The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

pager

This controls the pager display at the bottom (by default) of the list and search views. It expects a pager template argument which responds to the Data::Page interface.

</%doc>

%if ( $pager && $pager->{ first_page } != $pager->{ last_page } ) { <p align="center">Pages: % foreach my $num ( $pager->{ first_page } .. $pager->{ last_page } ) { % if ( $num == $pager->{ current_page } ) { [<% $num %>] % } else { <& mplink, base => $base, config => $config, table => $classmetadata->{table}, request => $request, command => 'list', additional => "?page=$num", label => "[$num]", &> % } # / if/else % } # / foreach % } # / if </p>

<%args> $request $config $base $pager $classmetadata </%args>