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>.
20 use List::MoreUtils qw( any );
21 use Try::Tiny qw( catch try );
24 use Koha::Exceptions::Patron::Relationship;
26 use base qw(Koha::Object);
30 Koha::Patron::Relationship - A class to represent relationships between patrons
32 Patrons in Koha may be guarantors or guarantees. This class models that relationship
33 and provides a way to access those relationships.
43 Overloaded method that makes some checks before storing on the DB
50 my @valid_relationships = split /\|/, C4::Context->preference('borrowerRelationship'), -1;
51 @valid_relationships = ('') unless @valid_relationships;
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
82 return Koha::Patrons->find( $self->guarantor_id );
87 Returns the Koha::Patron object for the guarantee
93 return Koha::Patrons->find( $self->guarantee_id );
101 return 'BorrowerRelationship';