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

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

Return to bug 18482