From 7cca21c8c126e98a64ec8677d2981d4a472ca26a Mon Sep 17 00:00:00 2001 From: berick Date: Mon, 25 Apr 2011 09:56:58 -0400 Subject: [PATCH] added option to flesh import items on queued record retrieval --- Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm index 3516fd3702..59dc39bd3a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm @@ -457,10 +457,9 @@ sub retrieve_queued_records { 'retrieve_vandelay_queued_bib_record' : 'retrieve_vandelay_queued_authority_record'; for my $rec_id (@$record_ids) { - my $params = { - flesh => 1, - flesh_fields => {$class => ['attributes', 'matches']}, - }; + my $flesh = ['attributes', 'matches']; + push(@$flesh, 'import_items') if $$options{flesh_import_items}; + my $params = {flesh => 1, flesh_fields => {$class => $flesh}}; my $rec = $e->$retrieve([$rec_id->{id}, $params]); $rec->clear_marc if $$options{clear_marc}; $conn->respond($rec); -- 2.11.0