From 3c5ce5482d3c6d10ea003840bfb5b5a4977090b3 Mon Sep 17 00:00:00 2001 From: Olivier Crouzet Date: Sat, 22 Apr 2017 18:20:48 +0200 Subject: [PATCH] Bug 18482 False duplicates detected on adding a batch-[16.11.x] For applying on 16.11.x When adding a batch from a stage file with defaut matching on title/author, if a duplicate is detected, all following records treated in the batch are discarded from import even if they are not duplicates Signed-off-by: Alex Buckley Signed-off-by: Jonathan Druart --- acqui/addorderiso2709.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 74ea8e2..8175379 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -143,6 +143,7 @@ if ($op eq ""){ my $matcher_id = $input->param('matcher_id'); my $active_currency = Koha::Acquisition::Currencies->get_active; for my $biblio (@$biblios){ + my $duplifound = 0; # Check if this import_record_id was selected next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected; my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} ); @@ -160,15 +161,15 @@ if ($op eq ""){ unless ( $biblionumber ) { if ($matcher_id) { if ( $matcher_id eq '_TITLE_AUTHOR_' ) { - $duplinbatch = $import_batch_id if FindDuplicate($marcrecord); + $duplifound = 1 if FindDuplicate($marcrecord); } else { my $matcher = C4::Matcher->fetch($matcher_id); my @matches = $matcher->get_matches( $marcrecord, my $max_matches = 1 ); - $duplinbatch = $import_batch_id if @matches; + $duplifound = 1 if @matches; } - next if $duplinbatch; + $duplinbatch = $import_batch_id and next if $duplifound; } # add the biblio -- 2.1.4