Revision 29637d3f
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/Controller/Helper/Paginated.pm | ||
|---|---|---|
| 12 | 12 |
sub make_paginated {
|
| 13 | 13 |
my ($class, %specs) = @_; |
| 14 | 14 |
|
| 15 |
$specs{MODEL} ||= $class->_controller_name;
|
|
| 15 |
$specs{MODEL} ||= $class->controller_name;
|
|
| 16 | 16 |
$specs{MODEL} =~ s{ ^ SL::DB:: (?: .* :: )? }{}x;
|
| 17 | 17 |
$specs{PER_PAGE} ||= "SL::DB::Manager::$specs{MODEL}"->default_objects_per_page;
|
| 18 | 18 |
$specs{FORM_PARAMS} ||= [ qw(page per_page) ];
|
Auch abrufbar als: Unified diff
Controller-Base: _controller_name in controller_name umbenennen; action_name() ergänzt