From ee76e1f594e4308c1b0b148e7cb7c41731501bba Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 11 Aug 2008 19:29:33 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm index c251dde5b2..e71c3837d4 100644 --- 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); -- 2.11.0