1 package Koha::Patron::Relationships;
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( uniq );
25 use Koha::Patron::Relationship;
27 use base qw(Koha::Objects);
31 Koha::Patron::Relationships - Koha Patron Relationship Object set class
41 Returns all the guarantors in this set of relationships as a list of Koha::Patron objects
42 or as a Koha::Patrons object depending on the calling context
49 my $rs = $self->_resultset();
51 my @guarantor_ids = $rs->get_column('guarantor_id')->all();
52 # Guarantors may not have a guarantor_id, strip out undefs
53 @guarantor_ids = grep { defined $_ } @guarantor_ids;
54 @guarantor_ids = uniq( @guarantor_ids );
56 my $guarantors = Koha::Patrons->search( { borrowernumber => \@guarantor_ids } );
58 return wantarray ? $guarantors->as_list : $guarantors;
63 Returns all the guarantees in this set of relationships as a list of Koha::Patron objects
64 or as a Koha::Patrons object depending on the calling context
71 my $rs = $self->_resultset();
73 my @guarantee_ids = uniq( $rs->get_column('guarantee_id')->all() );
75 my $guarantees = Koha::Patrons->search(
76 { borrowernumber => \@guarantee_ids },
78 order_by => { -asc => [ 'surname', 'firstname' ] }
82 return wantarray ? $guarantees->as_list : $guarantees;
92 return 'BorrowerRelationship';
96 return 'Koha::Patron::Relationship';