From f8836fe81144bd8a7401bb355d204e9dc809b7bd Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 26 Jan 2009 18:50:59 +0000 Subject: [PATCH] added support for returning the metarecord holds in open-ils.circ.holds.retrieve_all_from_title git-svn-id: svn://svn.open-ils.org/ILS/trunk@11974 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm index 78d77f7f95..d12f82e824 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm @@ -1621,7 +1621,17 @@ sub all_rec_holds { $args ||= { fulfillment_time => undef }; $args->{cancel_time} = undef; - my $resp = { volume_holds => [], copy_holds => [] }; + my $resp = { volume_holds => [], copy_holds => [], metarecord_holds => [] }; + + my $mr_map = $e->search_metabib_metarecord_source_map({source => $title_id})->[0]; + if($mr_map) { + $resp->{metarecord_holds} = $e->search_action_hold_request( + { hold_type => OILS_HOLD_TYPE_METARECORD, + target => $mr_map->metarecord, + %$args + }, {idlist => 1} + ); + } $resp->{title_holds} = $e->search_action_hold_request( { -- 2.11.0