Bug 21156: Add plural translation capabilities to JS files
[koha.git] / Koha / Patron / Relationship.pm
blobbe5a676050055bf6a7f08379b2ec96f485a3dfda
1 package Koha::Patron::Relationship;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
8 # version.
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 use Modern::Perl;
20 use Carp;
21 use List::MoreUtils qw( any );
22 use Try::Tiny;
24 use Koha::Database;
25 use Koha::Exceptions::Patron::Relationship;
27 use base qw(Koha::Object);
29 =head1 NAME
31 Koha::Patron::Relationship - A class to represent relationships between patrons
33 Patrons in Koha may be guarantors or guarantees. This class models that relationship
34 and provides a way to access those relationships.
36 =head1 API
38 =head2 Class methods
40 =cut
42 =head3 store
44 Overloaded method that makes some checks before storing on the DB
46 =cut
48 sub store {
49 my ( $self ) = @_;
51 my @valid_relationships = split /,|\|/, C4::Context->preference('borrowerRelationship');
53 Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw(
54 no_relationship => 1 )
55 unless defined $self->relationship;
57 Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw(
58 relationship => $self->relationship )
59 unless any { $_ eq $self->relationship } @valid_relationships;
61 return try {
62 $self->SUPER::store;
64 catch {
65 if ( ref($_) eq 'Koha::Exceptions::Object::DuplicateID' ) {
66 Koha::Exceptions::Patron::Relationship::DuplicateRelationship->throw(
67 guarantee_id => $self->guarantee_id,
68 guarantor_id => $self->guarantor_id
74 =head3 guarantor
76 Returns the Koha::Patron object for the guarantor, if there is one
78 =cut
80 sub guarantor {
81 my ( $self ) = @_;
83 return unless $self->guarantor_id;
85 return Koha::Patrons->find( $self->guarantor_id );
88 =head3 guarantee
90 Returns the Koha::Patron object for the guarantee
92 =cut
94 sub guarantee {
95 my ( $self ) = @_;
97 return Koha::Patrons->find( $self->guarantee_id );
100 =head3 type
102 =cut
104 sub _type {
105 return 'BorrowerRelationship';