View | Details | Raw Unified | Return to bug 18482
Collapse All | Expand All

(-)a/acqui/addorderiso2709.pl (-4 / +4 lines)
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
- 

Return to bug 18482