List - index_action

gistfile1.pl

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    my %attr = ( 'order_by' => { -desc => 'me.id' } );

    my $rs;
    my %cond = ();
    my $page = $c->req->params->{page};
    my $status = $c->req->param("status") || $c->stash->{"status"} || '0'; #수정 필요

    $attr{page} = $page || 1;
    %cond = ( status => $status ) if $status;
    $rs = $c->model('DonDB')->resultset('Charge')->search(\%cond, \%attr);

    my $page_info =
    Data::Pageset->new(
        {
            ( map { $_ => $rs->pager->$_ } qw/entries_per_page total_entries current_page/ ),
            mode => "slide",
            pages_per_set => 10,
        }
    );

    $c->stash(
        lists => [ $rs->all ],
        status => $status,
        pageset => $page_info,
    );
}