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
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 use List
::MoreUtils
qw( any );
25 use Koha
::Exceptions
::Patron
::Relationship
;
27 use base
qw(Koha::Object);
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.
44 Overloaded method that makes some checks before storing on the DB
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;
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
76 Returns the Koha::Patron object for the guarantor, if there is one
83 return unless $self->guarantor_id;
85 return Koha
::Patrons
->find( $self->guarantor_id );
90 Returns the Koha::Patron object for the guarantee
97 return Koha
::Patrons
->find( $self->guarantee_id );
105 return 'BorrowerRelationship';