[tools] testbot/web: Tweak the failures page columns.

[Francois Gouget]

Show the bug id in the failure list: this makes it easier to find all
the failures related to a given bug.
Shorten some column labels so they don't make the column too wide.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
 testbot/lib/WineTestBot/Failures.pm | 6 +++---
 testbot/web/FailuresList.pl         | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/testbot/lib/WineTestBot/Failures.pm b/testbot/lib/WineTestBot/Failures.pm
index a9118f64b..f0f78b6ff 100644
--- a/testbot/lib/WineTestBot/Failures.pm
+++ b/testbot/lib/WineTestBot/Failures.pm
@@ -187,9 +187,9 @@ my @PropertyDescriptors = (
   # Every entry must be associated with a Wine bug.
   # Note: The 'deleted' bug status means this failure entry should be
   # deleted as soon as it is not referenced anymore.
-  CreateBasicPropertyDescriptor("BugId", "WineHQ bug id", !1, 1, "N", 10),
-  CreateBasicPropertyDescriptor("BugStatus", "WineHQ bug status", !1, !1, "A", 32),
-  CreateBasicPropertyDescriptor("BugDescription", "WineHQ bug description", !1, !1, "A", 128),
+  CreateBasicPropertyDescriptor("BugId", "Bug id", !1, 1, "N", 10),
+  CreateBasicPropertyDescriptor("BugStatus", "Bug status", !1, !1, "A", 32),
+  CreateBasicPropertyDescriptor("BugDescription", "WineHQ Bug description", !1, !1, "A", 128),
 
   CreateDetailrefPropertyDescriptor("TaskFailures", "Tasks", \&CreateTaskFailures),
 );
diff --git a/testbot/web/FailuresList.pl b/testbot/web/FailuresList.pl
index 8825fea69..e271ee1d5 100644
--- a/testbot/web/FailuresList.pl
+++ b/testbot/web/FailuresList.pl
@@ -55,7 +55,7 @@ sub DisplayProperty($$)
   my ($self, $PropertyDescriptor) = @_;
 
   my $PropertyName = $PropertyDescriptor->GetName();
-  return $PropertyName =~ /^(?:Notes|ConfigRegExp|FailureRegExp|BugId)$/ ? "" :
+  return $PropertyName =~ /^(?:Notes|ConfigRegExp|FailureRegExp)$/ ? "" :
          $self->SUPER::DisplayProperty($PropertyDescriptor);
 }
 
@@ -79,7 +79,7 @@ sub GenerateDataView($$$)
   my ($self, $Row, $Col) = @_;
 
   my $PropertyName = $Col->{Descriptor}->GetName();
-  if ($PropertyName =~ /^Test(?:Module|Unit)$/)
+  if ($PropertyName eq "TestUnit")
   {
     print "<a href='", $self->escapeHTML($self->GetDetailsLink($Row)), "'>",
           $self->escapeHTML($Row->{Item}->$PropertyName), "</a>";
-- 
2.30.2