From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 28 Jan 2014 20:12:39 +0000 (-0500)
Subject: LP#1053397 basic MR holds support; todo: formats
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0a2abe619a8fa23246b01cf9ef27cd8ff88a92b9;p=working%2FEvergreen.git

LP#1053397 basic MR holds support; todo: formats

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
index 61b1028a84..02b729a073 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -777,6 +777,20 @@ sub load_place_hold {
     };
 
     my $type_dispatch = {
+        M => sub {
+            my $mrecs = $e->batch_retrieve_metabib_metarecord([
+                \@targets, 
+                {flesh => 1, flesh_fields => {mmr => ['master_record']}}], 
+                {substream => 1}
+            );
+            for my $id (@targets) {
+                my ($mr) = grep {$_->id eq $id} @$mrecs;
+                push(@hold_data, $data_filler->({
+                    target => $mr, 
+                    record => $mr->master_record
+                }));
+            }
+        },
         T => sub {
             my $recs = $e->batch_retrieve_biblio_record_entry(\@targets, {substream => 1});