Francois Gouget : testbot/web: Allow web pages to override the collection headers.
Alexandre Julliard
julliard at winehq.org
Mon Dec 3 15:24:28 CST 2018
Module: tools
Branch: master
Commit: 57690b377b4d2edcb5fc64db947c998c2f2b5dde
URL: https://source.winehq.org/git/tools.git/?a=commit;h=57690b377b4d2edcb5fc64db947c998c2f2b5dde
Author: Francois Gouget <fgouget at codeweavers.com>
Date: Mon Dec 3 20:19:46 2018 +0100
testbot/web: Allow web pages to override the collection headers.
Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>
---
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) = @_;
More information about the wine-cvs
mailing list