From: djfiander <djfiander>
Date: Fri, 16 Jun 2006 02:04:22 +0000 (+0000)
Subject: Fix ILS::checkout to handle more error conditions properly (but I
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=38500d05a1ea0f8c2eee01f3f87509306f829540;p=working%2FSIPServer.git

Fix ILS::checkout to handle more error conditions properly (but I
still can't cope with Bob attempting to check out a book that
Alice already has out.
---

diff --git a/ILS.pm b/ILS.pm
index b00508a..4199163 100644
--- a/ILS.pm
+++ b/ILS.pm
@@ -90,9 +90,19 @@ sub checkout {
     $circ->patron($patron = new ILS::Patron $patron_id);
     $circ->item($item = new ILS::Item $item_id);
 
-    $circ->ok($circ->patron && $circ->item);
-
-    if ($circ->ok) {
+    if (!$patron) {
+	$circ->screen_msg("Invalid Patron");
+    } elsif (!$patron->charge_ok) {
+	$circ->screen_msg("Patron Blocked");
+    } elsif (!$item) {
+	$circ->screen_msg("Invalid Item");
+    } elsif ($item->hold_queue && ($patron_id ne @{$item->hold_queue}[0])) {
+	$circ->screen_msg("Item on Hold for Another User");
+    } elsif ($item->{patron} && ($item->{patron} ne $patron_id)) {
+	# I can't deal with this right now
+	$circ->screen_msg("Item checked out to another patron");
+    } else {
+	$circ->ok(1);
 	# If the item is already associated with this patron, then
 	# we're renewing it.
 	$circ->renew_ok($item->{patron} && ($item->{patron} eq $patron_id));