1 package Koha::Account::CreditType;
3 # Copyright PTFS Europe 2019
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 use List::Util qw/any/;
26 use base qw(Koha::Object Koha::Object::Limit::Library);
30 Koha::Account::CreditType - Koha Account credit type Object class
40 Overridden delete method to prevent system default deletions
47 Koha::Exceptions::CannotDeleteDefault->throw if $self->is_system;
49 return $self->SUPER::delete;
52 =head3 _library_limits
54 Configurable library limits
60 class => "AccountCreditTypesBranch",
61 id => "credit_type_code",
62 library => "branchcode",
71 return 'AccountCreditType';