diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index dfe80c14f2..a28c382d68 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -728,9 +728,13 @@ sub HoldTitle { my $patron = Koha::Patrons->find( $borrowernumber ); return { code => 'PatronNotFound' } unless $patron; + # If borrower is restricted return an error code return { code => 'PatronRestricted' } if $patron->is_debarred; + # Check for patron expired, category and syspref settings + return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); + # Get the biblio record, or return an error code my $biblionumber = $cgi->param('bib_id'); my $biblio = Koha::Biblios->find( $biblionumber ); @@ -839,6 +843,9 @@ sub HoldItem { # If borrower is restricted return an error code return { code => 'PatronRestricted' } if $patron->is_debarred; + # Check for patron expired, category and syspref settings + return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); + # Get the biblio or return an error code my $biblionumber = $cgi->param('bib_id'); my $biblio = Koha::Biblios->find( $biblionumber );