[tools] testbot/cgi: Rename the OK action to Save.

[Francois Gouget]

Save better reflects what the action does.

Signed-off-by: Francois Gouget 
---
 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 a178aa6e0..09dfc0496 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 8c26930e8..7f7c710e1 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);