From: Thomas Berezansky <tsbere@mvlc.org>
Date: Wed, 15 Oct 2014 15:32:58 +0000 (-0400)
Subject: Ensure "Reshelved" copies are still reshelving
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Ftsbere%2Flp1018011;p=working%2FEvergreen.git

Ensure "Reshelved" copies are still reshelving

Rather than "were reshelving when the query started"

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
index 0452676b6a..42317fa6e3 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
@@ -206,6 +206,7 @@ sub complete_reshelving {
             WHERE cp.status = 7
                 AND cp.status_changed_time < NOW() - CAST( COALESCE( BTRIM( (SELECT value FROM actor.org_unit_ancestor_setting('circ.reshelving_complete.interval', cp.circ_lib)),'"' ), ? )  AS INTERVAL)
           )
+          AND status = 7
     SQL
     my $sth = action::circulation->db_Main->prepare_cached($sql);
     $sth->execute($window);