From 5ffb3af5313893fd834b5cd243ee2319f984bff1 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 3 Sep 2008 13:45:55 +0000
Subject: [PATCH] added fleshing of matches on queued rec retrieval.  condensed
 some of the retrieval code

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10518 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Vandelay.pm  | 38 +++++++------------
 1 file changed, 13 insertions(+), 25 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index b06ed201f4..45935407ec 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
@@ -315,32 +315,20 @@ sub retrieve_queue {
     my $evt = check_queue_perms($e, $type, $queue);
     return $evt if $evt;
 
-    if($type eq 'bib') {
-        my $record_ids = $e->search_vandelay_queued_bib_record({queue => $queue_id}, {idlist => 1});
-        for my $rec_id (@$record_ids) {
-            my $rec = $e->retrieve_vandelay_queued_bib_record([
-                $rec_id,
-                {   flesh => 1,
-                    flesh_fields => {vqbr => ['attributes']}
-                }
-            ]);
-            $rec->clear_marc if $$options{clear_marc};
-            $conn->respond($rec);
-        }
-    } else {
-        my $record_ids = $e->search_vandelay_queued_authority_record({queue => $queue_id}, {idlist => 1});
-        for my $rec_id (@$record_ids) {
-            for my $rec_id (@$record_ids) {
-                my $rec = $e->retrieve_vandelay_queued_bib_record([
-                    $rec_id,
-                    {   flesh => 1,
-                        flesh_fields => {vqar => ['attributes']}
-                    }
-                ]);
-                $rec->clear_marc if $$options{clear_marc};
-                $conn->respond($rec);
+    my $class = ($type eq 'bib') ? 'vqbr' : 'vqar';
+    my $search = ($type eq 'bib') ? 'search_vandelay_queued_bib_record' : 'search_vandelay_queued_authority_record';
+    my $retrieve = ($type eq 'bib') ? 'retrieve_vandelay_queued_bib_record' : 'retrieve_vandelay_queued_authority_record';
+    my $record_ids = $e->$search({queue => $queue_id}, {idlist => 1});
+
+    for my $rec_id (@$record_ids) {
+        my $rec = $e->$retrieve([
+            $rec_id,
+            {   flesh => 1,
+                flesh_fields => {$class => ['attributes', 'matches']}
             }
-        }
+        ]);
+        $rec->clear_marc if $$options{clear_marc};
+        $conn->respond($rec);
     }
     return undef;
 }
-- 
2.43.2