From 0e92c307779a7fab059b5f41fbcb1b96f14246ad Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 24 Aug 2022 16:00:52 +0100 Subject: [PATCH] Bug 31095: Add restrictions accessor to Koha::Patron --- Koha/Patron.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 8031257304..2080c33504 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -50,6 +50,7 @@ use Koha::Patron::Images; use Koha::Patron::Messages; use Koha::Patron::Modifications; use Koha::Patron::Relationships; +use Koha::Patron::Restrictions; use Koha::Patrons; use Koha::Plugins; use Koha::Recalls; @@ -1222,6 +1223,21 @@ sub overdues { ); } + +=head3 restrictions + + my $restrictions = $patron->restrictions; + +Returns the patron restrictions. + +=cut + +sub restrictions { + my ($self) = @_; + my $restrictions_rs = $self->_result->borrower_debarments; + return Koha::Patron::Restrictions->_new_from_dbic($restrictions_rs); +} + =head3 get_routing_lists my $routinglists = $patron->get_routing_lists -- 2.20.1