[tools 1/2] testbot/cgi: Add an HasRW property to form pages.
Francois Gouget
fgouget at codeweavers.com
Mon May 2 12:23:21 CDT 2022
Derived pages can use it to determine whether the form has any
editable field.
Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
testbot/lib/ObjectModel/CGI/FormPage.pm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/testbot/lib/ObjectModel/CGI/FormPage.pm b/testbot/lib/ObjectModel/CGI/FormPage.pm
index e286880fd..224bf3687 100644
--- a/testbot/lib/ObjectModel/CGI/FormPage.pm
+++ b/testbot/lib/ObjectModel/CGI/FormPage.pm
@@ -90,6 +90,7 @@ sub _initialize($$$$)
$self->{HasRequired} = !1;
$self->{ActionPerformed} = !1;
$self->{Method} = "post";
+ $self->{HasRW} = !1;
}
=pod
@@ -437,6 +438,7 @@ sub GenerateField($$$$)
my $Value = $self->GetFormValue($PropertyDescriptor);
if ($Display eq "rw")
{
+ $self->{HasRW} = 1;
print "<div class='ItemValue'>";
$self->GenerateValueInput($PropertyDescriptor, $Value, $Format);
print "</div>";
--
2.30.2
More information about the wine-devel
mailing list