changed pagination appearance

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/JWebmail/Plugin/Paginate.pm b/lib/JWebmail/Plugin/Paginate.pm
index 1a48ed3..9b39617 100644
--- a/lib/JWebmail/Plugin/Paginate.pm
+++ b/lib/JWebmail/Plugin/Paginate.pm
@@ -78,12 +78,21 @@ sub paginate {
     return $start, $end;
 }
 
+sub make_link {
+    my ($c, $txt, $to) = @_;
+
+    return $c->link_to(
+        $txt => $c->url_with->query({start => $c->stash('pgn')->{$to}[0]}),
+        class => ($c->param('start')//0) == $c->stash('pgn')->{$to}[0] ? 'disabled' : '',
+    );
+}
 
 sub register {
     my ($self, $app, $conf) = @_;
     $conf //= {};
 
     $app->helper(paginate => \&paginate);
+    $app->helper('_paginate.make_link' => \&make_link);
 }