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
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.
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 scalar Koha
::Patrons
->find( $self->guarantor_id );
90 Returns the Koha::Patron object for the guarantee
97 return scalar Koha
::Patrons
->find( $self->guarantee_id );
105 return 'BorrowerRelationship';