From e6039161fa68abc6e4748f29f994550c08619afc Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Wed, 22 Mar 2006 02:07:46 +0000
Subject: [PATCH] "block patron" stub implemented.  Basically just flag all the
 patron actions as not allowed.

---
 ILS.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/ILS.pm b/ILS.pm
index db581e9..b39582f 100644
--- a/ILS.pm
+++ b/ILS.pm
@@ -91,4 +91,24 @@ sub checkout {
     return $circ;
 }
 
+sub block_patron {
+    my ($self, $patron_id, $card_retained, $blocked_card_msg) = @_;
+    my $patron;
+
+    $patron = new ILS::Patron $patron_id;
+
+    if (!$patron) {
+	syslog("WARNING", "ILS::block_patron: attempting to block non-existant patron '%s'", $patron_id);
+	return undef;
+    }
+
+    foreach my $field ('charge_ok', 'renew_ok', 'recall_ok', 'hold_ok') {
+	$patron->{$field} = 'N';
+    }
+
+    $patron->{screen_msg} = $blocked_card_msg || "Card Blocked.  Please contact library staff";
+
+    return $patron;
+}
+
 1;
-- 
2.11.0