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

(-)a/svc/import_bib (-3 / +2 lines)
Lines 1-4 Link Here
1
#!/usr/bin/perl
1
=#!/usr/bin/perl
2
2
3
# Copyright 2012 CatalystIT Ltd
3
# Copyright 2012 CatalystIT Ltd
4
#
4
#
Lines 86-92 sub import_bib { Link Here
86
86
87
    my $matcher = C4::Matcher->new($params->{record_type} || 'biblio');
87
    my $matcher = C4::Matcher->new($params->{record_type} || 'biblio');
88
    $matcher = C4::Matcher->fetch($params->{matcher_id});
88
    $matcher = C4::Matcher->fetch($params->{matcher_id});
89
    my $number_of_matches =  BatchFindBibDuplicates($batch_id, $matcher);
89
    my $number_of_matches =  BatchFindDuplicates($batch_id, $matcher);
90
90
91
    # XXX we are ignoring the result of this;
91
    # XXX we are ignoring the result of this;
92
    BatchCommitRecords($batch_id, $framework) if lc($import_mode) eq 'direct';
92
    BatchCommitRecords($batch_id, $framework) if lc($import_mode) eq 'direct';
93
- 

Return to bug 9908