From 7b7759c6b9746888e33086e632e839f7b9021779 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 11 May 2016 12:19:12 -0400 Subject: [PATCH] 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 Signed-off-by: Galen Charlton --- Open-ILS/src/support-scripts/marc_stream_importer.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 ($@) { -- 2.11.0