projekt kivitendo

  my ($self, %params)     = @_;

  my $page                = $params{page} || 1;

  my %args                = %{ $params{args} || {} };

  my $ret                 = { };

  $ret->{per_page}        = per_page($self, %params);

  $ret->{max}             = ceil($self->get_all_count(%args), $ret->{per_page}) || 1;

  $ret->{cur}             = $page < 1 ? 1

                          : $page > $ret->{max} ? $ret->{max}

                          : $page;

  $ret->{common}          = make_common_pages($ret->{cur}, $ret->{max});