if hold expire time is set, do not clobber

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10338 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 c251dde..e71c383 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -142,10 +142,12 @@ sub create_hold {
                }
 
         # set the configured expire time
-        my $interval = $U->ou_ancestor_setting_value($recipient->home_ou, OILS_SETTING_HOLD_EXPIRE);
-        if($interval) {
-            my $date = DateTime->now->add(seconds => OpenSRF::Utils::interval_to_seconds($interval));
-            $hold->expire_time($U->epoch2ISO8601($date->epoch));
+        unless($hold->expire_time) {
+            my $interval = $U->ou_ancestor_setting_value($recipient->home_ou, OILS_SETTING_HOLD_EXPIRE);
+            if($interval) {
+                my $date = DateTime->now->add(seconds => OpenSRF::Utils::interval_to_seconds($interval));
+                $hold->expire_time($U->epoch2ISO8601($date->epoch));
+            }
         }
 
                $hold->requestor($e->requestor->id);