From: erickson Date: Sat, 19 Aug 2006 15:15:38 +0000 (+0000) Subject: reseting holds on mark missing/damaged X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6d862675246804270e99ea92f147508c7b6cc709;p=Evergreen.git reseting holds on mark missing/damaged git-svn-id: svn://svn.open-ils.org/ILS/trunk@5600 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index 12cca53ee0..8311c01623 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -781,7 +781,20 @@ sub mark_item { $e->update_asset_copy($copy) or return $e->event; + + my $holds = $e->search_action_hold_request( + { + current_copy => $copy->id, + fulfillment_time => undef, + cancel_time => undef, + } + ); + $e->commit; + + $logger->debug("reseting holds that target the marked copy"); + OpenILS::Application::Circ::Holds->_reset_hold($e->requestor, $_) for @$holds; + return 1; }