[open-ils-commits] r11974 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-26 13:50:59 -0500 (Mon, 26 Jan 2009)
New Revision: 11974

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
added support for returning the metarecord holds in open-ils.circ.holds.retrieve_all_from_title

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-01-26 17:20:39 UTC (rev 11973)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-01-26 18:50:59 UTC (rev 11974)
@@ -1621,8 +1621,18 @@
 	$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(
 		{ 
 			hold_type => OILS_HOLD_TYPE_TITLE,