From bf245bed29bdf57afae45dd4292025308b31551e Mon Sep 17 00:00:00 2001 From: Lari Taskula Date: Tue, 7 Feb 2017 13:16:30 +0200 Subject: [PATCH] Bug 18072: Add Koha objects for Branch Transfer Limit This patch also fixes documentation in Koha/Item/Transfer.pm and Koha/Item/Transfers.pm. Signed-off-by: Josef Moravec Signed-off-by: Tomas Cohen Arazi --- Koha/Item/Transfer.pm | 2 +- Koha/Item/Transfer/Limit.pm | 45 ++++++++++++++++++++++++++++++++++++++++ Koha/Item/Transfer/Limits.pm | 49 ++++++++++++++++++++++++++++++++++++++++++++ Koha/Item/Transfers.pm | 2 +- 4 files changed, 96 insertions(+), 2 deletions(-) create mode 100644 Koha/Item/Transfer/Limit.pm create mode 100644 Koha/Item/Transfer/Limits.pm diff --git a/Koha/Item/Transfer.pm b/Koha/Item/Transfer.pm index fbdc701..50c381d 100644 --- a/Koha/Item/Transfer.pm +++ b/Koha/Item/Transfer.pm @@ -25,7 +25,7 @@ use base qw(Koha::Object); =head1 NAME -Koha::Item::Transfer - Koha Transfer Object class +Koha::Item::Transfer - Koha Item Transfer Object class =head1 API diff --git a/Koha/Item/Transfer/Limit.pm b/Koha/Item/Transfer/Limit.pm new file mode 100644 index 0000000..8bd7319 --- /dev/null +++ b/Koha/Item/Transfer/Limit.pm @@ -0,0 +1,45 @@ +package Koha::Item::Transfer::Limit; + +# Copyright Koha-Suomi Oy 2017 +# 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, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +use Modern::Perl; + +use Carp; + +use Koha::Database; + +use base qw(Koha::Object); + +=head1 NAME + +Koha::Item::Transfer::Limit - Koha Item Transfer Limit Object class + +=head1 API + +=head2 Class Methods + +=cut + +=head3 type + +=cut + +sub _type { + return 'BranchTransferLimit'; +} + +1; diff --git a/Koha/Item/Transfer/Limits.pm b/Koha/Item/Transfer/Limits.pm new file mode 100644 index 0000000..ce42c96 --- /dev/null +++ b/Koha/Item/Transfer/Limits.pm @@ -0,0 +1,49 @@ +package Koha::Item::Transfer::Limits; + +# Copyright Koha-Suomi Oy 2017 +# 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, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +use Modern::Perl; + +use Koha::Database; + +use Koha::Item::Transfer::Limit; + +use base qw(Koha::Objects); + +=head1 NAME + +Koha::Item::Transfer::Limits - Koha Item Transfer Limits Object set class + +=head1 API + +=head2 Class Methods + +=cut + +=head3 type + +=cut + +sub _type { + return 'BranchTransferLimit'; +} + +sub object_class { + return 'Koha::Item::Transfer::Limit'; +} + +1; diff --git a/Koha/Item/Transfers.pm b/Koha/Item/Transfers.pm index 0e4988f..45dc67f 100644 --- a/Koha/Item/Transfers.pm +++ b/Koha/Item/Transfers.pm @@ -27,7 +27,7 @@ use base qw(Koha::Objects); =head1 NAME -Koha::Transfers - Koha Transfer Object set class +Koha::Item::Transfers - Koha Item Transfer Object set class =head1 API -- 2.7.4