From 855ad02bf8a3c4c287ec357de7b2a8fff40303ef Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 24 Aug 2022 11:58:44 -0300 Subject: [PATCH] Bug 31378: Add Koha::Auth::Provider::Domain(s) class(es) Signed-off-by: Lukasz Koszyk Signed-off-by: Tomas Cohen Arazi Signed-off-by: Nick Clemens Signed-off-by: Martin Renvoize Signed-off-by: Tomas Cohen Arazi --- Koha/Auth/Provider/Domain.pm | 40 ++++++++++++++++++++++++++ Koha/Auth/Provider/Domains.pm | 53 +++++++++++++++++++++++++++++++++++ 2 files changed, 93 insertions(+) create mode 100644 Koha/Auth/Provider/Domain.pm create mode 100644 Koha/Auth/Provider/Domains.pm diff --git a/Koha/Auth/Provider/Domain.pm b/Koha/Auth/Provider/Domain.pm new file mode 100644 index 0000000000..6208ff2d3a --- /dev/null +++ b/Koha/Auth/Provider/Domain.pm @@ -0,0 +1,40 @@ +package Koha::Auth::Provider::Domain; + +# Copyright Theke Solutions 2022 +# +# 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 . + +use Modern::Perl; + +use base qw(Koha::Object); + +=head1 NAME + +Koha::Auth::Provider::Domain - Koha Auth Provider Domain Object class + +=head1 API + +=head2 Internal methods + +=head3 _type + +=cut + +sub _type { + return 'AuthProviderDomain'; +} + +1; diff --git a/Koha/Auth/Provider/Domains.pm b/Koha/Auth/Provider/Domains.pm new file mode 100644 index 0000000000..8f15f6ec45 --- /dev/null +++ b/Koha/Auth/Provider/Domains.pm @@ -0,0 +1,53 @@ +package Koha::Auth::Provider::Domains; + +# Copyright Theke Solutions 2022 +# +# 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 . + +use Modern::Perl; + +use Koha::Database; +use Koha::Auth::Provider::Domain; + +use base qw(Koha::Objects); + +=head1 NAME + +Koha::Auth::Providers - Koha Auth Provider Object class + +=head1 API + +=head2 Internal methods + +=cut + +=head3 _type + +=cut + +sub _type { + return 'AuthProviderDomain'; +} + +=head3 object_class + +=cut + +sub object_class { + return 'Koha::Auth::Provider::Domain'; +} + +1; -- 2.39.5