Francois Gouget : testbot: Add Page::GetParamNames() to retrieve a page' s parameter names.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 9cb4b0b9932bfe027529d367aa50e08b461ccf27
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=9cb4b0b9932bfe027529d367a...

Author: Francois Gouget 
Date:   Mon Jun 19 09:06:22 2017 +0200

testbot: Add Page::GetParamNames() to retrieve a page's parameter names.

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

---

testbot/lib/ObjectModel/CGI/FormPage.pm |  2 +-
 testbot/lib/ObjectModel/CGI/Page.pm     | 17 +++++++++++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/testbot/lib/ObjectModel/CGI/FormPage.pm b/testbot/lib/ObjectModel/CGI/FormPage.pm
index bc7eb0b..fb743a0 100644
--- a/testbot/lib/ObjectModel/CGI/FormPage.pm
+++ b/testbot/lib/ObjectModel/CGI/FormPage.pm
@@ -362,7 +362,7 @@ sub Save($)
 {
   my ($self) = @_;

-  my @ParamNames = $self->GetParam();
+  my @ParamNames = $self->GetParamNames();
   foreach my $ParameterName (@ParamNames)
   {
     my $PropertyDescriptor = $self->GetPropertyDescriptorByName($ParameterName);
diff --git a/testbot/lib/ObjectModel/CGI/Page.pm b/testbot/lib/ObjectModel/CGI/Page.pm
index 046fd12..1fb2ca3 100644
--- a/testbot/lib/ObjectModel/CGI/Page.pm
+++ b/testbot/lib/ObjectModel/CGI/Page.pm
@@ -58,6 +58,23 @@ sub _initialize($$$)
 =pod
 =over 12

+=head1 C<GetParamNames()>
+
+Returns the list of parameter names.
+
+=back
+=cut
+
+sub GetParamNames($)
+{
+  my $self = shift;
+
+  return $self->{CGIObj}->param();
+}
+
+=pod
+=over 12
+
 =head1 C<GetParam()>

This thunks to CGI::param() and thus takes the same arguments list.