[tools 1/2] testbot/cgi: Add an HasRW property to form pages.

[Francois Gouget]

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

Signed-off-by: Francois Gouget 
---
 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>";