Fix paging links for /shortlog.

[catagits/Gitalist.git] / lib / Gitalist / URIStructure / Fragment / WithLog.pm

diff --git a/lib/Gitalist/URIStructure/Fragment/WithLog.pm b/lib/Gitalist/URIStructure/Fragment/WithLog.pm
index 470f59d..ea3ae2a 100644 (file)
--- a/lib/Gitalist/URIStructure/Fragment/WithLog.pm
+++ b/lib/Gitalist/URIStructure/Fragment/WithLog.pm
@@ -14,9 +14,11 @@ after log => sub {
     );
 
     my $page = $c->req->param('pg') || 0;
-    $logargs{skip} = $c->req->param('pg') * $logargs{count}
-        if $c->req->param('pg');
+    $logargs{skip} = abs $page * $logargs{count}
+        if $page;
+
     $c->stash(
+       page      => $page,
        log_lines => [$repository->list_revs(%logargs)],
        refs      => $repository->references,
     );