Francois Gouget : testbot/cgi: Add an HasRW property to form pages.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Mon May  2 19:23:21 2022 +0200

testbot/cgi: Add an HasRW property to form pages.

Derived pages can use it to determine whether the form has any
editable field.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 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 e286880..224bf36 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>";