Paginaten für die BackgroundJob-Controller-List-View
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 3 Sep 2012 14:56:52 +0000 (16:56 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 3 Sep 2012 14:56:52 +0000 (16:56 +0200)
SL/Controller/BackgroundJob.pm
SL/DB/Manager/BackgroundJob.pm
templates/webpages/background_job/list.html

index dc97e18..f80f57a 100644 (file)
@@ -5,6 +5,7 @@ use strict;
 use parent qw(SL::Controller::Base);
 
 use SL::Controller::Helper::GetModels;
+use SL::Controller::Helper::Paginated;
 use SL::Controller::Helper::Sorted;
 use SL::DB::BackgroundJob;
 use SL::Helper::Flash;
@@ -20,6 +21,8 @@ __PACKAGE__->run_before('check_auth');
 __PACKAGE__->run_before('check_task_server');
 __PACKAGE__->run_before('load_background_job', only => [ qw(edit update destroy execute) ]);
 
+__PACKAGE__->make_paginated(ONLY => [ qw(list) ]);
+
 __PACKAGE__->make_sorted(
   ONLY         => [ qw(list) ],
 
index 1bb89ee..6212f94 100644 (file)
@@ -5,6 +5,7 @@ use strict;
 use SL::DB::Helper::Manager;
 use base qw(SL::DB::Helper::Manager);
 
+use SL::DB::Helper::Paginated;
 use SL::DB::Helper::Sorted;
 
 sub object_class { 'SL::DB::BackgroundJob' }
index 060c35d..7d48047 100644 (file)
@@ -64,6 +64,8 @@
    </table>
   [%- END %]
 
+  [% L.paginate_controls %]
+
   <hr size="3" noshade>
 
   <p>