|
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 |
- |
|
|