From 690ea8de1ae413065561ca38972aa46826056b50 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 16 Jan 2025 08:32:02 +0000 Subject: [PATCH] Bug 38630: (QA follow-up) Add copyright, license and/or POD Content-Type: text/plain; charset=utf-8 Signed-off-by: Marcel de Rooy --- Koha/App/Plugin/Language.pm | 2 ++ Koha/Language.pm | 31 +++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+) diff --git a/Koha/App/Plugin/Language.pm b/Koha/App/Plugin/Language.pm index c93e4fa95f..46ef805516 100644 --- a/Koha/App/Plugin/Language.pm +++ b/Koha/App/Plugin/Language.pm @@ -1,5 +1,7 @@ package Koha::App::Plugin::Language; +# Copyright 2025 Koha development team +# # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it diff --git a/Koha/Language.pm b/Koha/Language.pm index 1dcb58237e..63e0685924 100644 --- a/Koha/Language.pm +++ b/Koha/Language.pm @@ -1,5 +1,22 @@ package Koha::Language; +# Copyright 2025 Koha development team +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . + =head1 NAME Koha::Language @@ -27,6 +44,14 @@ use Koha::Cache::Memory::Lite; use constant REQUESTED_LANGUAGE_CACHE_KEY => 'requested_language'; +=head1 METHODS + +=head2 set_requested_language + + Caches requested language + +=cut + sub set_requested_language { my ($class, $language) = @_; @@ -35,6 +60,12 @@ sub set_requested_language { $cache->set_in_cache(REQUESTED_LANGUAGE_CACHE_KEY, $language); } +=head2 get_requested_language + + Gets requested language from cache + +=cut + sub get_requested_language { my ($class) = @_; -- 2.39.5