From 83d26576656e769002ab5120c6feb9c3315efd01 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 28 Jul 2006 22:09:54 +0000 Subject: [PATCH] disallowing holds if patron barred git-svn-id: svn://svn.open-ils.org/ILS/trunk@5163 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/javascript/backend/circ/circ_permit_hold.js | 2 ++ Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/Open-ILS/src/javascript/backend/circ/circ_permit_hold.js b/Open-ILS/src/javascript/backend/circ/circ_permit_hold.js index 693a1fdcf4..e5c61cf877 100644 --- a/Open-ILS/src/javascript/backend/circ/circ_permit_hold.js +++ b/Open-ILS/src/javascript/backend/circ/circ_permit_hold.js @@ -4,6 +4,8 @@ function go() { load_lib('circ/circ_lib.js'); log_vars('circ_permit_hold'); +if( isTrue(patron.barred) ) + result.events.push('PATRON_BARRED'); /* projected medium */ if( getMARCItemType() == 'g' && diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm index 50d2dcb1e3..a52de21731 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm @@ -913,6 +913,10 @@ sub check_title_hold { or return $e->event; return $e->event unless $e->allowed('VIEW_HOLD_PERMIT', $patron->home_ou); + return OpenILS::Event->new('PATRON_BARRED') + if $patron->barred and + ($patron->barred =~ /t/i or $patron->barred == 1); + my $rangelib = $params{range_lib} || $patron->home_ou; my $request_lib = $e->retrieve_actor_org_unit($e->requestor->ws_ou) -- 2.11.0