From a80df763370feb7208cda93447e4429fff65ff20 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 24 Jan 2024 16:16:36 -0300 Subject: [PATCH] Bug 35919: Add Koha::RecordSource(s) classes Signed-off-by: Tomas Cohen Arazi --- Koha/RecordSource.pm | 44 +++++++++++++++++++++++++++++++++++++ Koha/RecordSources.pm | 51 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 95 insertions(+) create mode 100644 Koha/RecordSource.pm create mode 100644 Koha/RecordSources.pm diff --git a/Koha/RecordSource.pm b/Koha/RecordSource.pm new file mode 100644 index 00000000000..8b4fecbe25c --- /dev/null +++ b/Koha/RecordSource.pm @@ -0,0 +1,44 @@ +package Koha::RecordSource; + +# This file is part of Koha. +# +# Copyright 2024 Koha Development Team +# +# 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); + +use Koha::Patrons; +use Koha::Token; + +=head1 NAME + +Koha::RecordSource - Koha RecordSource Object class + +=head1 API + +=head2 Internal methods + +=head3 _type + +=cut + +sub _type { + return 'RecordSource'; +} + +1; diff --git a/Koha/RecordSources.pm b/Koha/RecordSources.pm new file mode 100644 index 00000000000..cd1f9f90cc2 --- /dev/null +++ b/Koha/RecordSources.pm @@ -0,0 +1,51 @@ +package Koha::RecordSources; + +# This file is part of Koha. +# +# Copyright 2024 Koha Development Team +# +# 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::Objects); + +use Koha::RecordSource; + +=head1 NAME + +Koha::RecordSources - Koha RecordSources Object class + +=head1 API + +=head2 Internal methods + +=head3 _type + +=cut + +sub _type { + return 'RecordSource'; +} + +=head3 object_class + +=cut + +sub object_class { + return 'Koha::RecordSource'; +} + +1; -- 2.43.0