From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 7 Jul 2009 20:51:28 +0000 (+0000)
Subject: added an additional status of 5 for holds.  if a captured copy is still within the... 
X-Git-Tag: sprint4-merge-nov22~9729
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=dad8ca0009f93d8ef85560c9dbbde7e1110de05e;p=working%2FEvergreen.git

added an additional status of 5 for holds.  if a captured copy is still within the hold-shelf-status-delay interval, return status 5

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index f5f4edff45..65e0232c3a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -31,7 +31,8 @@ use OpenSRF::Utils::SettingsClient;
 use OpenILS::Const qw/:const/;
 use OpenILS::Application::Circ::Transit;
 use OpenILS::Application::Actor::Friends;
-
+use DateTime;
+use DateTime::Format::ISO8601;
 my $apputils = "OpenILS::Application::AppUtils";
 my $U = $apputils;
 
@@ -710,6 +711,7 @@ __PACKAGE__->register_method(
 	Returns 2 for 'waiting for copy capture'
 	Returns 3 for 'in transit'
 	Returns 4 for 'arrived'
+	Returns 5 for 'hold-shelf-delay'
 	NOTE
 
 sub retrieve_hold_status {
@@ -740,7 +742,24 @@ sub _hold_status {
 	}
 
 	return 3 if $copy->status == OILS_COPY_STATUS_IN_TRANSIT;
-	return 4 if $copy->status == OILS_COPY_STATUS_ON_HOLDS_SHELF;
+
+	if($copy->status == OILS_COPY_STATUS_ON_HOLDS_SHELF) {
+
+        my $hs_wait_interval = $U->ou_ancestor_setting_value($hold->pickup_lib, 'circ.hold_shelf_status_delay');
+        return 4 unless $hs_wait_interval;
+
+        # if a hold_shelf_status_delay interval is defined and start_time plus 
+        # the interval is greater than now, consider the hold to be in the virtual 
+        # "on its way to the holds shelf" status. Return 5.
+
+        my $transit = $e->search_action_hold_transit({hold => $hold->id})->[0];
+        my $start_time = ($transit) ? $transit->dest_recv_time : $hold->capture_time;
+        $start_time = DateTime::Format::ISO8601->new->parse_datetime(clense_ISO8601($start_time));
+        my $end_time = $start_time->add(seconds => OpenSRF::Utils::interval_to_seconds($hs_wait_interval));
+
+        return 5 if $end_time > DateTime->now;
+        return 4;
+    }
 
 	return -1;
 }