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.
pager
</%doc> %if ($pager && $pager->{first_page} != $pager->{last_page}) {
<p align="center">Pages: <%perl> foreach my $num ($pager->{first_page} .. $pager->{last_page}) { if($num == $pager->{current_page}) { print "[$num]" } else { my $args = "?page=" . $num; # Order? my $label = "[$num]"; $m->comp("link",base=>$base, config=>$config, table=>$classmetadata->{table}, request=>$request, command=>"list", additional=>$args, label=>$label); } } } </%perl> </p>
To install Maypole::View::Mason, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Maypole::View::Mason
CPAN shell
perl -MCPAN -e shell install Maypole::View::Mason
For more information on module installation, please visit the detailed CPAN module installation guide.