From 4d667941da8deed0c1b814d66e77b050055cc78b Mon Sep 17 00:00:00 2001 From: Dan Pearl Date: Tue, 24 Jan 2017 13:59:01 -0500 Subject: [PATCH] Pickup up hold for other patron --- .../perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm index 7dd3611755..0dcc78294a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -864,9 +864,25 @@ sub check_captured_holds { return undef; } + /* Get fleshed version of hold so we can grab name of requestor */ + $hold = $self->editor->retrieve_action_hold_request( + [ + $hold->id, + { + flesh => 1, + flesh_fields => { ahr => [ 'usr' ] } + } + ] + $logger->info("circulator: this copy is needed by a different patron to fulfill a hold"); - $self->push_events(OpenILS::Event->new('ITEM_ON_HOLDS_SHELF')); + my $user = $hold->usr; + + $self->push_events(OpenILS::Event->new('ITEM_ON_HOLDS_SHELF', + { payload => { hold => $hold->id, + patron_name = $user->first_given_name. ' '. + $user->family_name + )); } -- 2.11.0