Francois Gouget : testbot/cgi: Rename the OK action to Save.

[Alexandre Julliard]

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

Author: Francois Gouget 
Date:   Wed Mar 23 14:58:02 2022 +0100

testbot/cgi: Rename the OK action to Save.

Save better reflects what the action does.

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

---

testbot/lib/ObjectModel/CGI/ItemPage.pm | 4 ++--
 testbot/web/admin/UserDetails.pl        | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/testbot/lib/ObjectModel/CGI/ItemPage.pm b/testbot/lib/ObjectModel/CGI/ItemPage.pm
index a178aa6..09dfc04 100644
--- a/testbot/lib/ObjectModel/CGI/ItemPage.pm
+++ b/testbot/lib/ObjectModel/CGI/ItemPage.pm
@@ -116,7 +116,7 @@ sub GetActions($)
   my ($self) = @_;

my @Actions = @{$self->SUPER::GetActions()};
-  push @Actions, "OK", "Cancel";
+  push @Actions, "Save", "Cancel";

return @Actions;
 }
@@ -151,7 +151,7 @@ sub OnAction($$)
 {
   my ($self, $Action) = @_;

-  if ($Action eq "OK")
+  if ($Action eq "Save")
   {
     return !1 if (!$self->Save());
     exit($self->RedirectToList());
diff --git a/testbot/web/admin/UserDetails.pl b/testbot/web/admin/UserDetails.pl
index 8c26930..7f7c710 100644
--- a/testbot/web/admin/UserDetails.pl
+++ b/testbot/web/admin/UserDetails.pl
@@ -89,7 +89,7 @@ sub OnReject($)
   exit($self->RedirectToList());
 }

-sub OnOK($)
+sub OnSave($)
 {
   my ($self) = @_;

@@ -114,9 +114,9 @@ sub OnAction($$)
   {
     return $self->OnReject();
   }
-  elsif ($Action eq "OK")
+  elsif ($Action eq "Save")
   {
-    return $self->OnOK();
+    return $self->OnSave();
   }

return $self->SUPER::OnAction($Action);