From: Jason Stephenson <jstephenson@mvlc.org>
Date: Tue, 29 Nov 2011 14:22:29 +0000 (-0500)
Subject: Check OILS_SETTING_LOST_IMMEDIATELY_AVAILABLE in checkin_handle_lost.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d5c59feb5ebe33afc9e65e8e41e53e47b8f25c40;p=Evergreen.git

Check OILS_SETTING_LOST_IMMEDIATELY_AVAILABLE in checkin_handle_lost.

Check the value of OILS_SETTING_LOST_IMMEDIATELY_AVAILABLE before
changing the copy status in checkin_handle_lost. This makes the setting
actually do something.

Add a couple of blank lines to aid in readability.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Dan Wells <dbw2@calvin.edu>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
index 22aa22c448..74fc2a2866 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
@@ -3102,7 +3102,11 @@ sub checkin_handle_lost {
         $self->checkin_handle_lost_now_found_restore_od() if $restore_od && ! $self->void_overdues;
     }
 
-    $self->copy->status($U->copy_status(OILS_COPY_STATUS_RESHELVING));
+    my $immediately_available = $U->ou_ancestor_setting_value(
+        $circ_lib, OILS_SETTING_LOST_IMMEDIATELY_AVAILABLE, $self->editor) || 0;
+
+    $self->copy->status($U->copy_status(OILS_COPY_STATUS_RESHELVING)) if ($immediately_available);
+
     $self->update_copy;
 }