Lines 147-152
if ($op eq ""){
Link Here
|
147 |
my $biblio_count = 0; |
147 |
my $biblio_count = 0; |
148 |
for my $biblio (@$biblios){ |
148 |
for my $biblio (@$biblios){ |
149 |
$biblio_count++; |
149 |
$biblio_count++; |
|
|
150 |
my $duplifound = 0; |
150 |
# Check if this import_record_id was selected |
151 |
# Check if this import_record_id was selected |
151 |
next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected; |
152 |
next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected; |
152 |
my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} ); |
153 |
my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} ); |
Lines 164-178
if ($op eq ""){
Link Here
|
164 |
unless ( $biblionumber ) { |
165 |
unless ( $biblionumber ) { |
165 |
if ($matcher_id) { |
166 |
if ($matcher_id) { |
166 |
if ( $matcher_id eq '_TITLE_AUTHOR_' ) { |
167 |
if ( $matcher_id eq '_TITLE_AUTHOR_' ) { |
167 |
$duplinbatch = $import_batch_id if FindDuplicate($marcrecord); |
168 |
$duplifound = 1 if FindDuplicate($marcrecord); |
168 |
} |
169 |
} |
169 |
else { |
170 |
else { |
170 |
my $matcher = C4::Matcher->fetch($matcher_id); |
171 |
my $matcher = C4::Matcher->fetch($matcher_id); |
171 |
my @matches = $matcher->get_matches( $marcrecord, my $max_matches = 1 ); |
172 |
my @matches = $matcher->get_matches( $marcrecord, my $max_matches = 1 ); |
172 |
$duplinbatch = $import_batch_id if @matches; |
173 |
$duplifound = 1 if @matches; |
173 |
} |
174 |
} |
174 |
|
175 |
|
175 |
next if $duplinbatch; |
176 |
$duplinbatch = $import_batch_id and next if $duplifound; |
176 |
} |
177 |
} |
177 |
|
178 |
|
178 |
# add the biblio |
179 |
# add the biblio |
179 |
- |
|
|