disallowing holds if patron barred

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5163 dcc99617-32d9-48b4-a31d-7c20da2025e4

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 693a1fd..e5c61cf 100644 (file)
--- 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 50d2dcb..a52de21 100644 (file)
--- 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)