X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ccacef74f97842c0297a735fe7d81987adb5e6d6..a8da95826e357e75f78ccfc6b8f2c2523c52723f:/SL/Controller/Helper/Paginated.pm diff --git a/SL/Controller/Helper/Paginated.pm b/SL/Controller/Helper/Paginated.pm index 11eddd32d..15997b8e9 100644 --- a/SL/Controller/Helper/Paginated.pm +++ b/SL/Controller/Helper/Paginated.pm @@ -7,6 +7,8 @@ our @EXPORT = qw(make_paginated get_paginate_spec get_current_paginate_params _s use constant PRIV => '__paginatedhelper_priv'; +use List::Util qw(min); + my %controller_paginate_spec; sub make_paginated { @@ -59,15 +61,10 @@ sub get_current_paginate_params { : $spec->{PAGINATE_ARGS} ? do { my $sub = $spec->{PAGINATE_ARGS}; %{ $self->$sub() } } : (); my $calculated_params = "SL::DB::Manager::$spec->{MODEL}"->paginate(%paginate_params, args => \%paginate_args); - %paginate_params = ( - %paginate_params, - num_pages => $calculated_params->{max}, - common_pages => $calculated_params->{common}, - ); - # $::lxdebug->dump(0, "get_current_paginate_params: ", \%paginate_params); + # $::lxdebug->dump(0, "get_current_paginate_params: ", $calculated_params); - return %paginate_params; + return %{ $calculated_params }; } sub disable_pagination {