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 61b1028..02b729a 100644 (file)
--- 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});