From 72108ea5dfbbd356f042e7e0a4cc0e35cde9015d Mon Sep 17 00:00:00 2001 From: Kyle M Hall 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 --- acqui/addorderiso2709.pl | 18 ++++++++++++------ .../prog/en/modules/acqui/addorderiso2709.tt | 1 + 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index adcf507..74ea8e2 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; @@ -139,7 +140,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 @@ -158,13 +159,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; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/addorderiso2709.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/addorderiso2709.tt index 63425a7..acf84e1 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/addorderiso2709.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/addorderiso2709.tt @@ -198,6 +198,7 @@