From 7ae74d2a78d1f3fa73763a1bf82955739af0a413 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 14 Sep 2006 19:41:49 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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]; -- 2.11.0