Lines 509-524
sub BatchFindDuplicates {
Link Here
|
509 |
|
509 |
|
510 |
=head2 BatchCommitRecords |
510 |
=head2 BatchCommitRecords |
511 |
|
511 |
|
512 |
my ($num_added, $num_updated, $num_items_added, $num_items_replaced, $num_items_errored, $num_ignored) = |
512 |
Takes a hashref containing params for committing the batch - optional parameters 'progress_interval' and |
513 |
BatchCommitRecords( $batch_id, $framework, $progress_interval, $progress_callback, $params ); |
513 |
'progress_callback' will define code called every X records. |
|
|
514 |
|
515 |
my ($num_added, $num_updated, $num_items_added, $num_items_replaced, $num_items_errored, $num_ignored) = |
516 |
BatchCommitRecords({ |
517 |
batch_id => $batch_id, |
518 |
framework => $framework, |
519 |
overlay_framework => $overlay_framework, |
520 |
progress_interval => $progress_interval, |
521 |
progress_callback => $progress_callback, |
522 |
skip_intermediate_commit => $skip_intermediate_commit |
523 |
}); |
514 |
|
524 |
|
515 |
Parameter skip_intermediate_commit does what is says. |
525 |
Parameter skip_intermediate_commit does what is says. |
516 |
|
|
|
517 |
=cut |
526 |
=cut |
518 |
|
527 |
|
519 |
sub BatchCommitRecords { |
528 |
sub BatchCommitRecords { |
520 |
my ( $batch_id, $framework, $progress_interval, $progress_callback, $params ) = @_; |
529 |
my $params = shift; |
|
|
530 |
my $batch_id = $params->{batch_id}; |
531 |
my $framework = $params->{framework}; |
532 |
my $overlay_framework = $params->{overlay_framework}; |
521 |
my $skip_intermediate_commit = $params->{skip_intermediate_commit}; |
533 |
my $skip_intermediate_commit = $params->{skip_intermediate_commit}; |
|
|
534 |
my $progress_interval = $params->{progress_interval} // 0; |
535 |
my $progress_callback = $params->{progress_callback}; |
522 |
$progress_interval = 0 unless $progress_interval && $progress_interval =~ /^\d+$/; |
536 |
$progress_interval = 0 unless $progress_interval && $progress_interval =~ /^\d+$/; |
523 |
$progress_interval = 0 unless ref($progress_callback) eq 'CODE'; |
537 |
$progress_interval = 0 unless ref($progress_callback) eq 'CODE'; |
524 |
|
538 |
|
Lines 646-652
sub BatchCommitRecords {
Link Here
|
646 |
ModBiblio( |
660 |
ModBiblio( |
647 |
$marc_record, |
661 |
$marc_record, |
648 |
$recordid, |
662 |
$recordid, |
649 |
$oldbiblio->frameworkcode, |
663 |
$overlay_framework // $oldbiblio->frameworkcode, |
650 |
{ |
664 |
{ |
651 |
overlay_context => $context, |
665 |
overlay_context => $context, |
652 |
skip_record_index => 1 |
666 |
skip_record_index => 1 |