Frey/ORM/Pager.pm

package Frey::ORM::Pager;
use Moose;
use MooseX::AttributeHelpers;

use Data::Page;
use Data::Dump qw/dump/;

has 'pager' => (
        is => 'rw',
        isa => 'Data::Page',
        default => sub { Data::Page->new },
);

has 'fey_class' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has 'item_constructor' => (
        is => 'rw',
        isa => 'CodeRef',
        required => 1,
);

has 'items' => (
        metaclass => 'Collection::Array',
        is => 'rw',
        isa => 'ArrayRef[Frey::ORM::Item]',
        default => sub { [] },
        provides => {
                'push' => 'add_item',
        },
);

has 'range_around' => (
        is => 'rw',
        isa => 'Int',
        default => 10,
);

has 'page' => (
        is => 'rw',
        isa => 'Int',
        required => 1,
        default => 1,
);

has 'per_page' => (
        is => 'rw',
        isa => 'Int',
        required => 1,
        default => 20,
);

=head1 METHODS

=cut

sub first_item {
        my $self = shift;
        $self->items->[0];
}

sub last_item {
        my $self = shift;
        my $last = $#{ $self->items };
        $self->update_collection if $last < 0;
        $self->items->[ $#{ $self->items } ];
}

=head2 update_collection

  $o->update_collection;

=cut

sub update_collection {
        my ( $self ) = @_;

        return if $#{ $self->items } >= 0;

        warn "## update_collection from iterator";

        if ( ! $self->fey_class->can('collection') ) {
                warn "ERROR: ", $self->fey_class, " can't do collection";
                return;
        }

        my $i = $self->fey_class->collection( $self->pager );
        while ( my $u = $i->next ) {
                $self->add_item(
                        $self->item_constructor->(
                                fey => $u,
                        )
                );
        }
}

=head2 items_in_layout

  my $html = $o->items_in_layout;

=cut

sub items_in_layout {
        my ( $self ) = @_;

        # FIXME somehow, this seem cludgy
        $self->pager->current_page( $self->page );
        $self->items( [] );
        $self->update_collection;

        my $html = join('', map {
                $_->process
        } @{ $self->items } );

        return $html;
}

=head2 render_pager

  my $html = $o->render_pager;

=cut

sub render_pager {
        my $self = shift;

        my $pager = $self->pager;

        my @show_pages;
        my $after_current = 0;

        if ( $pager->current_page <= $self->range_around + 2 ) {
                @show_pages = ( $pager->first_page .. $pager->current_page );
                $after_current = $self->range_around - $pager->current_page;
        } else {
                @show_pages = ( $pager->first_page, '', $pager->current_page - $self->range_around .. $pager->current_page );
        }

        if ( $pager->current_page + $self->range_around + 1 >= $pager->last_page ) {
                push @show_pages, ( $pager->current_page + 1 .. $pager->last_page );
        } else {
                push @show_pages, ( $pager->current_page + 1 .. $pager->current_page + $after_current + $self->range_around, '', $pager->last_page );
        }

        warn "## show_pages = ",dump( @show_pages );

        return join( ' ',
                        qq|<div class="notice">|,
                        'Showing',
                        $pager->first, '-', $pager->last,
                        'of',
                        $pager->total_entries,
                        'results<br>',
#                       'page', $pager->current_page, '/', $pager->last_page,
                        Frey::ORM::Links->new(
                                name => 'page',
                                current => $pager->current_page,
                                values => \@show_pages,
                                empty => '...',
                                current_tag => 'b',
                        )->links,
                        qq|</div>|
                );
}

1;
1	package Frey::ORM::Pager;
2	use Moose;
3	use MooseX::AttributeHelpers;
4
5	use Data::Page;
6	use Data::Dump qw/dump/;
7
8	has 'pager' => (
9	is => 'rw',
10	isa => 'Data::Page',
11	default => sub { Data::Page->new },
12	);
13
14	has 'fey_class' => (
15	is => 'rw',
16	isa => 'Str',
17	required => 1,
18	);
19
20	has 'item_constructor' => (
21	is => 'rw',
22	isa => 'CodeRef',
23	required => 1,
24	);
25
26	has 'items' => (
27	metaclass => 'Collection::Array',
28	is => 'rw',
29	isa => 'ArrayRef[Frey::ORM::Item]',
30	default => sub { [] },
31	provides => {
32	'push' => 'add_item',
33	},
34	);
35
36	has 'range_around' => (
37	is => 'rw',
38	isa => 'Int',
39	default => 10,
40	);
41
42	has 'page' => (
43	is => 'rw',
44	isa => 'Int',
45	required => 1,
46	default => 1,
47	);
48
49	has 'per_page' => (
50	is => 'rw',
51	isa => 'Int',
52	required => 1,
53	default => 20,
54	);
55
56	=head1 METHODS
57
58	=cut
59
60	sub first_item {
61	my $self = shift;
62	$self->items->[0];
63	}
64
65	sub last_item {
66	my $self = shift;
67	my $last = $#{ $self->items };
68	$self->update_collection if $last < 0;
69	$self->items->[ $#{ $self->items } ];
70	}
71
72	=head2 update_collection
73
74	$o->update_collection;
75
76	=cut
77
78	sub update_collection {
79	my ( $self ) = @_;
80
81	return if $#{ $self->items } >= 0;
82
83	warn "## update_collection from iterator";
84
85	if ( ! $self->fey_class->can('collection') ) {
86	warn "ERROR: ", $self->fey_class, " can't do collection";
87	return;
88	}
89
90	my $i = $self->fey_class->collection( $self->pager );
91	while ( my $u = $i->next ) {
92	$self->add_item(
93	$self->item_constructor->(
94	fey => $u,
95	)
96	);
97	}
98	}
99
100	=head2 items_in_layout
101
102	my $html = $o->items_in_layout;
103
104	=cut
105
106	sub items_in_layout {
107	my ( $self ) = @_;
108
109	# FIXME somehow, this seem cludgy
110	$self->pager->current_page( $self->page );
111	$self->items( [] );
112	$self->update_collection;
113
114	my $html = join('', map {
115	$_->process
116	} @{ $self->items } );
117
118	return $html;
119	}
120
121	=head2 render_pager
122
123	my $html = $o->render_pager;
124
125	=cut
126
127	sub render_pager {
128	my $self = shift;
129
130	my $pager = $self->pager;
131
132	my @show_pages;
133	my $after_current = 0;
134
135	if ( $pager->current_page <= $self->range_around + 2 ) {
136	@show_pages = ( $pager->first_page .. $pager->current_page );
137	$after_current = $self->range_around - $pager->current_page;
138	} else {
139	@show_pages = ( $pager->first_page, '', $pager->current_page - $self->range_around .. $pager->current_page );
140	}
141
142	if ( $pager->current_page + $self->range_around + 1 >= $pager->last_page ) {
143	push @show_pages, ( $pager->current_page + 1 .. $pager->last_page );
144	} else {
145	push @show_pages, ( $pager->current_page + 1 .. $pager->current_page + $after_current + $self->range_around, '', $pager->last_page );
146	}
147
148	warn "## show_pages = ",dump( @show_pages );
149
150	return join( ' ',
151	qq\|<div class="notice">\|,
152	'Showing',
153	$pager->first, '-', $pager->last,
154	'of',
155	$pager->total_entries,
156	'results<br>',
157	# 'page', $pager->current_page, '/', $pager->last_page,
158	Frey::ORM::Links->new(
159	name => 'page',
160	current => $pager->current_page,
161	values => \@show_pages,
162	empty => '...',
163	current_tag => 'b',
164	)->links,
165	qq\|</div>\|
166	);
167	}
168
169	1;