From c509ff4f32b8ea6239eb4e28243a23bbca27fa0b Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 18 Sep 2006 17:37:56 +0000 Subject: [PATCH] added repair code to force reshelving of in-transit copies if there is no transit open on the copy git-svn-id: svn://svn.open-ils.org/ILS/trunk@6133 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index 1ab03e0a70..d64f9b82ed 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -1284,6 +1284,12 @@ sub do_checkin { $self->checkin_flesh_events; return; } + + } elsif( $U->copy_status($self->copy->status)->id == OILS_COPY_STATUS_IN_TRANSIT ) { + $logger->warn("circulator: we have a copy ".$self->copy->barcode. + " that is in-transit, but there is no transit.. repairing"); + $self->reshelve_copy(1); + return if $self->bail_out; } if( $self->is_renewal ) { -- 2.11.0