|
Lines 143-148
if ($op eq ""){
Link Here
|
| 143 |
my $matcher_id = $input->param('matcher_id'); |
143 |
my $matcher_id = $input->param('matcher_id'); |
| 144 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
144 |
my $active_currency = Koha::Acquisition::Currencies->get_active; |
| 145 |
for my $biblio (@$biblios){ |
145 |
for my $biblio (@$biblios){ |
|
|
146 |
my $duplifound = 0; |
| 146 |
# Check if this import_record_id was selected |
147 |
# Check if this import_record_id was selected |
| 147 |
next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected; |
148 |
next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected; |
| 148 |
my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} ); |
149 |
my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} ); |
|
Lines 160-174
if ($op eq ""){
Link Here
|
| 160 |
unless ( $biblionumber ) { |
161 |
unless ( $biblionumber ) { |
| 161 |
if ($matcher_id) { |
162 |
if ($matcher_id) { |
| 162 |
if ( $matcher_id eq '_TITLE_AUTHOR_' ) { |
163 |
if ( $matcher_id eq '_TITLE_AUTHOR_' ) { |
| 163 |
$duplinbatch = $import_batch_id if FindDuplicate($marcrecord); |
164 |
$duplifound = 1 if FindDuplicate($marcrecord); |
| 164 |
} |
165 |
} |
| 165 |
else { |
166 |
else { |
| 166 |
my $matcher = C4::Matcher->fetch($matcher_id); |
167 |
my $matcher = C4::Matcher->fetch($matcher_id); |
| 167 |
my @matches = $matcher->get_matches( $marcrecord, my $max_matches = 1 ); |
168 |
my @matches = $matcher->get_matches( $marcrecord, my $max_matches = 1 ); |
| 168 |
$duplinbatch = $import_batch_id if @matches; |
169 |
$duplifound = 1 if @matches; |
| 169 |
} |
170 |
} |
| 170 |
|
171 |
|
| 171 |
next if $duplinbatch; |
172 |
$duplinbatch = $import_batch_id and next if $duplifound; |
| 172 |
} |
173 |
} |
| 173 |
|
174 |
|
| 174 |
# add the biblio |
175 |
# add the biblio |
| 175 |
- |
|
|