Attempt to fix job log links

[gruntmaster-page.git] / lib / Gruntmaster / Page / Generic.pm

diff --git a/lib/Gruntmaster/Page/Generic.pm b/lib/Gruntmaster/Page/Generic.pm
index efb2721848ed879b404a84b2f3380888bba38a30..eefa9080e3f41d52ecca6a89a247895bcc4d304c 100644 (file)
--- 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/' : '';
        }
 };