From e71def0da9c475418523474f6ac65efbabe210c1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= <bernd@kivitendo-premium.de>
Date: Thu, 18 Mar 2021 17:08:52 +0100
Subject: [PATCH] =?utf8?q?SL::Auth:=20Typo=20in=20Methodennamen=20korrigie?=
 =?utf8?q?rt:=20create=5Funique=5Fsesion=5Fvalue=20=E2=80=A6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

-> create_unique_session_value
---
 SL/Auth.pm                        | 8 ++++----
 SL/Controller/PartsPriceUpdate.pm | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 33007a417..6be693382 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -879,7 +879,7 @@ sub get_session_value {
   ($self->{SESSION}{$key} //= SL::Auth::SessionValue->new(auth => $self, key => $key))->get
 }
 
-sub create_unique_sesion_value {
+sub create_unique_session_value {
   my ($self, $value, %params) = @_;
 
   $self->{SESSION} ||= { };
@@ -912,7 +912,7 @@ sub save_form_in_session {
     $data->{$key} = $form->{$key} if !ref($form->{$key}) || $non_scalars;
   }
 
-  return $self->create_unique_sesion_value($data, %params);
+  return $self->create_unique_session_value($data, %params);
 }
 
 sub restore_form_from_session {
@@ -1332,7 +1332,7 @@ The values can be any Perl structure. They are stored as YAML dumps.
 Retrieve a value from the session. Returns C<undef> if the value
 doesn't exist.
 
-=item C<create_unique_sesion_value $value, %params>
+=item C<create_unique_session_value $value, %params>
 
 Create a unique key in the session and store C<$value>
 there.
@@ -1348,7 +1348,7 @@ setters nor the deleter access the database.
 =item C<save_form_in_session %params>
 
 Stores the content of C<$params{form}> (default: C<$::form>) in the
-session using L</create_unique_sesion_value>.
+session using L</create_unique_session_value>.
 
 If C<$params{non_scalars}> is trueish then non-scalar values will be
 stored as well. Default is to only store scalar values.
diff --git a/SL/Controller/PartsPriceUpdate.pm b/SL/Controller/PartsPriceUpdate.pm
index 9d24c503d..8481998d4 100644
--- a/SL/Controller/PartsPriceUpdate.pm
+++ b/SL/Controller/PartsPriceUpdate.pm
@@ -63,7 +63,7 @@ sub action_confirm_price_update {
     return $self->action_search_update_prices;
   } else {
 
-    my $key = $::auth->create_unique_sesion_value(SL::JSON::to_json($self->filter));
+    my $key = $::auth->create_unique_session_value(SL::JSON::to_json($self->filter));
 
     $self->setup_confirm_price_update_action_bar;
     $self->render('ic/confirm_price_update',
-- 
2.20.1