Francois Gouget : testbot/web: Allow web pages to override the collection headers.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 57690b377b4d2edcb5fc64db947c998c2f2b5dde
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=57690b377b4d2edcb5fc64db...

Author: Francois Gouget 
Date:   Mon Dec  3 20:19:46 2018 +0100

testbot/web: Allow web pages to override the collection headers.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/lib/ObjectModel/CGI/CollectionBlock.pm        | 17 +++++++++++++++--
 testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm |  7 +++++++
 testbot/lib/ObjectModel/CGI/CollectionPage.pm         |  7 +++++++
 3 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/testbot/lib/ObjectModel/CGI/CollectionBlock.pm b/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
index f675e6b..105280e 100644
--- a/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
+++ b/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
@@ -238,14 +238,27 @@ sub GenerateHeaderRow($$$)
   {
     if ($self->CallDisplayProperty($PropertyDescriptor))
     {
-      print "<th>", $self->escapeHTML($PropertyDescriptor->GetDisplayName()),
-            "</th>\n";
+      $self->CallGenerateHeaderCell($PropertyDescriptor);
     }
   }

print "</tr>\n";
 }

+sub CallGenerateHeaderCell($$)
+{
+  my ($self, $PropertyDescriptor) = @_;
+
+  return $self->GenerateHeaderCell($PropertyDescriptor);
+}
+
+sub GenerateHeaderCell($$)
+{
+  my ($self, $PropertyDescriptor) = @_;
+  print "<th>", $self->escapeHTML($PropertyDescriptor->GetDisplayName()),
+        "</th>\n";
+}
+
 sub CallGenerateDataRow($$$$$$)
 {
   my ($self, $Item, $PropertyDescriptors, $DetailsPage, $Class, $Actions) = @_;
diff --git a/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm b/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm
index ff8247e..03a4508 100644
--- a/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm
+++ b/testbot/lib/ObjectModel/CGI/CollectionBlockForPage.pm
@@ -45,6 +45,13 @@ sub CallGenerateFormEnd($)
   $self->{EnclosingPage}->GenerateFormEnd($self);
 }

+sub CallGenerateHeaderCell($$)
+{
+  my ($self, $PropertyDescriptor) = @_;
+
+  return $self->{EnclosingPage}->GenerateHeaderCell($self, $PropertyDescriptor);
+}
+
 sub CallGenerateHeaderRow($$$)
 {
   my ($self, $PropertyDescriptors, $Actions) = @_;
diff --git a/testbot/lib/ObjectModel/CGI/CollectionPage.pm b/testbot/lib/ObjectModel/CGI/CollectionPage.pm
index 194379f..5c48954 100644
--- a/testbot/lib/ObjectModel/CGI/CollectionPage.pm
+++ b/testbot/lib/ObjectModel/CGI/CollectionPage.pm
@@ -94,6 +94,13 @@ sub GenerateFormEnd($$)
   $CollectionBlock->GenerateFormEnd();
 }

+sub GenerateHeaderCell($$$)
+{
+  my ($self, $CollectionBlock, $PropertyDescriptor) = @_;
+
+  $CollectionBlock->GenerateHeaderCell($PropertyDescriptor);
+}
+
 sub GenerateHeaderRow($$$$)
 {
   my ($self, $CollectionBlock, $PropertyDescriptors, $Actions) = @_;