[PATCH 2/2] testbot/web: Add arrows to navigate through the job results.

[Francois Gouget]

The up / down arrows simplify navigation when the long logs are
expanded.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
 testbot/web/JobDetails.pl   | 10 ++++++++--
 testbot/web/WineTestBot.css |  2 ++
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index 51fb2e9dd..7dd6aa5e9 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -380,13 +380,19 @@ EOF
 
   print "<div class='Content'>\n";
   my $Keys = $self->SortKeys(undef, $self->{Collection}->GetKeys());
+  my $KeyIndex = 0;
   foreach my $Key (@$Keys)
   {
     my $StepTask = $self->{Collection}->GetItem($Key);
     my $TaskDir = $StepTask->GetTaskDir();
     my $VM = $StepTask->VM;
-    print "<h2><a name='k", $self->escapeHTML($Key), "'></a>" ,
-          $self->escapeHTML($StepTask->GetTitle()), "</h2>\n";
+
+    my $Prev = $KeyIndex > 0 ? "k". $Keys->[$KeyIndex-1] : "PageTitle";
+    my $Next = $KeyIndex + 1 < @$Keys ? "k". $Keys->[$KeyIndex+1] : "PageEnd";
+    $KeyIndex++;
+    print "<h2><a name='k", $self->escapeHTML($Key), "'></a>",
+          $self->escapeHTML($StepTask->GetTitle()),
+          " <span class='right'><a class='title' href='#$Prev'>↑</a><a class='title' href='#$Next'>↓</a></span></h2>\n";
 
     print "<details><summary>",
           $self->CGI->escapeHTML($VM->Description || $VM->Name), "</summary>",
diff --git a/testbot/web/WineTestBot.css b/testbot/web/WineTestBot.css
index 9656254e0..55c61a300 100644
--- a/testbot/web/WineTestBot.css
+++ b/testbot/web/WineTestBot.css
@@ -364,6 +364,8 @@ pre
    background-color: red;
 }
 
+.right { float: right; }
+
 .queued    { color: black; }
 .running   { color: blue; }
 .success   { color: green; }
-- 
2.18.0