From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 14 Sep 2006 19:41:49 +0000 (+0000)
Subject: added code to force reshelving of a copy if it's on-holds-shelf and there
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7ae74d2a78d1f3fa73763a1bf82955739af0a413;p=evergreen%2Fpines.git

added code to force reshelving of a copy if it's on-holds-shelf and there
is no unfulfilled, captured hold for the copy


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 1455656273..a57450af76 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -1396,7 +1396,11 @@ sub checkin_check_holds_shelf {
 		}
 	);
 
-	return 0 unless @$holds;
+	unless(@$holds) {
+		$logger->warn("circulator: copy is on-holds-shelf, but there is no hold - reshelving");
+		$self->reshelve_copy(1);
+		return 0;
+	}
 
 	my $hold = $$holds[0];