From: djfiander <djfiander>
Date: Wed, 22 Mar 2006 02:07:46 +0000 (+0000)
Subject: "block patron" stub implemented.  Basically just flag all the
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e6039161fa68abc6e4748f29f994550c08619afc;p=working%2FSIPServer.git

"block patron" stub implemented.  Basically just flag all the
patron actions as not allowed.
---

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;