From c30742cc7be2591fbae3577d73b8584d22d1de65 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 8 Jun 2016 10:53:25 +0000
Subject: [PATCH] Bug 16493: [QA Followup] Restore title and author match as an
 option, make it the default

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 acqui/addorderiso2709.pl | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index 3b79e49084..6363d6eb46 100755
--- a/acqui/addorderiso2709.pl
+++ b/acqui/addorderiso2709.pl
@@ -31,6 +31,7 @@ use C4::Auth;
 use C4::Output;
 use C4::ImportBatch;
 use C4::Matcher;
+use C4::Search qw/FindDuplicate/;
 use C4::Acquisition;
 use C4::Biblio;
 use C4::Items;
@@ -140,7 +141,7 @@ if ($op eq ""){
     my @discount = $input->multi_param('discount');
     my @sort1 = $input->multi_param('sort1');
     my @sort2 = $input->multi_param('sort2');
-    my $matcher_id = $input->multi_param('matcher_id');
+    my $matcher_id = $input->param('matcher_id');
     my $active_currency = Koha::Acquisition::Currencies->get_active;
     for my $biblio (@$biblios){
         # Check if this import_record_id was selected
@@ -159,13 +160,18 @@ if ($op eq ""){
         # 1st insert the biblio, or find it through matcher
         unless ( $biblionumber ) {
             if ($matcher_id) {
-                my $matcher = C4::Matcher->fetch($matcher_id);
-                my @matches = $matcher->get_matches( $marcrecord, my $max_matches = 1 );
-                if ( @matches ) {
-                    $duplinbatch = $import_batch_id;
-                    next;
+                if ( $matcher_id eq '_TITLE_AUTHOR_' ) {
+                    $duplinbatch = $import_batch_id 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;
+                }
+
+                next if $duplinbatch;
             }
+
             # add the biblio
             my $bibitemnum;
 
-- 
2.39.5