From 7b772f1df38c7bb4b40e5bfcd20990111200780a 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 --- 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