From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 11 May 2016 16:19:12 +0000 (-0400)
Subject: LP#1580676 MARC stream authority cleanup repair
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fceb8d6f3c5dc57d6ce9618e0d4ee8e354f8889c;p=evergreen%2Fmasslnc.git

LP#1580676 MARC stream authority cleanup repair

Delete the successfully imported authority record from the vandelay
authority queue instead of the bib record that happens to have the same
ID as the imported authority record.

Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/Open-ILS/src/support-scripts/marc_stream_importer.pl b/Open-ILS/src/support-scripts/marc_stream_importer.pl
index f51e0ff6fb..29d5e85d04 100755
--- a/Open-ILS/src/support-scripts/marc_stream_importer.pl
+++ b/Open-ILS/src/support-scripts/marc_stream_importer.pl
@@ -371,10 +371,12 @@ sub import_queued_records {
     $pcrud->request('open-ils.pcrud.transaction.begin', $authtoken)->recv;
     my $err;
 
+    my $api = 'open-ils.pcrud.delete.';
+    $api .= $cur_rec_type eq 'auth' ? 'vqar' : 'vqbr';
+
     foreach (@cleanup_recs) {
         eval {
-            $pcrud->request(
-                'open-ils.pcrud.delete.vqbr', $authtoken, $_)->recv;
+            $pcrud->request($api, $authtoken, $_)->recv;
         };
 
         if ($@) {