The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Template::Plugin::Pageset - wrapper for Data::Page::Pageset

SYNOPSIS

 # pager is a Data::Page object
 [% USE pageset = Pageset( pager ) %] # pages_per_set is using default 10
 [% USE pageset = Pageset( pager, 7 ) %] # pages_per_set is 7
 [% USE pageset = Pageset( pager, { pages_per_set => 12 } ) %] # set max_pagesets to be 12
 [% USE pageset = Pageset( pager, { max_pagesets => 4 } ) %] # set max_pagesets to be 4

DESCRIPTION

        [% IF pageset.previous_pageset %]
                <a href="JavaScript:goto_page('[% pageset.previous_pageset.middle %]');">Previous Pageset</a>&nbsp;
        [% END %]

        [% FOREACH chunk = pageset.total_pagesets %]
                [% IF chunk.is_current %]
                        [% FOREACH num = [ chunk.first .. chunk.last ] %]
                                [% IF num == pager.current_page %]
                                        <b>[% num %]</b>
                                [% ELSE %]
                                        <a href="JavaScript:goto_page('[% num %]');">[% num %]</a>
                                [% END %]
                        [% END %]
                [% ELSE %]
                        <a href="JavaScript:goto_page('[% chunk.first %]');">[% chunk %]</a>
                [% END %]
        [% END %]

        [% IF pageset.next_pageset %]
                <a href="JavaScript:goto_page('[% pageset.next_pageset.middle %]');">Next Pageset</a>&nbsp;
        [% END %]

See Also

Data::Page::Pageset is the core one, more methods see that pod.

AUTHOR

Chun Sheng, <me@chunzi.org>

COPYRIGHT

Copyright (C) 2004-2005, Chun Sheng

This module is free software; you can redistribute it or modify it under the same terms as Perl itself.