Francois Gouget : testbot/web: Show the task id in a more compact form.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: f1d196b96dcaa71f49acdb98ca80a3e1a462f3c5
URL:    https://gitlab.winehq.org/winehq/tools/-/commit/f1d196b96dcaa71f49acdb98ca80...

Author: Francois Gouget <fgouget(a)codeweavers.com>
Date:   Thu Nov 17 17:33:06 2022 +0100

testbot/web: Show the task id in a more compact form.

---

 testbot/web/JobDetails.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index a4a250fa..c2b7cf5c 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -50,7 +50,7 @@ sub DisplayProperty($$)
   my ($self, $PropertyDescriptor) = @_;
 
   my $PropertyName = $PropertyDescriptor->GetName();
-  return $PropertyName =~ /^(?:Id|PreviousNo|Type|VM|FileType|Missions|NewWarnings|NewTestFailures)$/ ? "" :
+  return $PropertyName =~ /^(?:Id|StepNo|PreviousNo|Type|VM|FileType|Missions|NewWarnings|NewTestFailures)$/ ? "" :
          $PropertyName eq "Started" ? ("ro", "timetipdate") :
          $self->SUPER::DisplayProperty($PropertyDescriptor);
 }
@@ -65,7 +65,11 @@ sub GenerateHeaderView($$$)
   my ($self, $Row, $Col) = @_;
 
   my $PropertyName = $Col->{Descriptor}->GetName();
-  if ($PropertyName eq "CmdLineArg")
+  if ($PropertyName eq "TaskNo")
+  {
+    print "<a class='title' title='Step.Task'>Task</a>";
+  }
+  elsif ($PropertyName eq "CmdLineArg")
   {
     print "Arguments / <span class='MissionHeader'>Missions</span>";
   }
@@ -101,6 +105,11 @@ sub GenerateDataView($$$)
 
   my $StepTask = $Row->{Item};
   my $PropertyName = $Col->{Descriptor}->GetName();
+  if ($PropertyName eq "TaskNo")
+  {
+    print $StepTask->StepNo, ".", $StepTask->TaskNo;
+    return;
+  }
   if ($PropertyName eq "VMName")
   {
     print "<a href='#k", $StepTask->GetKey(), "'>",