From 251f53e4ff1871fdaee0202f994bf3d6b28b8ec9 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Wed, 26 Mar 2014 07:50:31 +0200
Subject: [PATCH] Attempt to fix job log links

---
 lib/Gruntmaster/Page/Generic.pm | 2 ++
 tmpl/log.en                     | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/Gruntmaster/Page/Generic.pm b/lib/Gruntmaster/Page/Generic.pm
index efb2721..eefa908 100644
--- a/lib/Gruntmaster/Page/Generic.pm
+++ b/lib/Gruntmaster/Page/Generic.pm
@@ -162,11 +162,13 @@ thing {
 	};
 	sortby { $b->{id} <=> $a->{id}};
 	mangle {
+		my $env = shift;
 		$_->{results} &&= decode_json $_->{results};
 		$_->{owner_name} = $_->{rs}->owner->name;
 		$_->{problem_name} = $_->{rs}->problem->name;
 		$_->{size} = length $_->{source};
 		delete $_->{source};
+		$_->{pageprefix} = $env->{'gruntmaster.page'} == -1 ? 'page/' : '';
 	}
 };
 
diff --git a/tmpl/log.en b/tmpl/log.en
index f2c7983..d4229d6 100644
--- a/tmpl/log.en
+++ b/tmpl/log.en
@@ -12,6 +12,6 @@
 </table>
 
 <ul class="pager">
-<%perl if (__CURRENT__->{page} > 1) { %><li class="previous"><a href="<%perl __OUT__ __CURRENT__->{page} - 1; %>">Previous</a><%perl } %>
-<%perl if (__CURRENT__->{page} < __CURRENT__->{pages} - 1) { %><li class="next"><a href="<%perl __OUT__ __CURRENT__->{page} + 1; %>">Next</a><%perl } %>
+<%perl if (__CURRENT__->{page} > 1) { %><li class="previous"><a href="<tmpl_var pageprefix><%perl __OUT__ __CURRENT__->{page} - 1; %>">Previous</a><%perl } %>
+<%perl if (__CURRENT__->{page} < __CURRENT__->{pages} - 1) { %><li class="next"><a href="<tmpl_var pageprefix><%perl __OUT__ __CURRENT__->{page} + 1; %>">Next</a><%perl } %>
 </ul>
-- 
2.39.2