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