|
Lines 83-88
BEGIN {
Link Here
|
| 83 |
); |
83 |
); |
| 84 |
} |
84 |
} |
| 85 |
|
85 |
|
|
|
86 |
our $logger = Koha::Logger->get( { category => 'C4.ImportBatch' } ); |
| 87 |
|
| 86 |
=head1 NAME |
88 |
=head1 NAME |
| 87 |
|
89 |
|
| 88 |
C4::ImportBatch - manage batches of imported MARC records |
90 |
C4::ImportBatch - manage batches of imported MARC records |
|
Lines 813-819
sub BatchCommitItems {
Link Here
|
| 813 |
sub BatchRevertRecords { |
815 |
sub BatchRevertRecords { |
| 814 |
my $batch_id = shift; |
816 |
my $batch_id = shift; |
| 815 |
|
817 |
|
| 816 |
my $logger = Koha::Logger->get( { category => 'C4.ImportBatch.BatchRevertRecords' } ); |
|
|
| 817 |
$logger->trace("C4::ImportBatch::BatchRevertRecords( $batch_id )"); |
818 |
$logger->trace("C4::ImportBatch::BatchRevertRecords( $batch_id )"); |
| 818 |
|
819 |
|
| 819 |
my $record_type; |
820 |
my $record_type; |
|
Lines 872-878
sub BatchRevertRecords {
Link Here
|
| 872 |
my $biblionumber = $rowref->{'matched_biblionumber'}; |
873 |
my $biblionumber = $rowref->{'matched_biblionumber'}; |
| 873 |
my $oldbiblio = GetBiblio($biblionumber); |
874 |
my $oldbiblio = GetBiblio($biblionumber); |
| 874 |
|
875 |
|
| 875 |
$logger->info("Biblio record $biblionumber does not exist, restoration of this record was skipped") unless $oldbiblio; |
876 |
$logger->info("C4::ImportBatch::BatchRevertRecords: Biblio record $biblionumber does not exist, restoration of this record was skipped") unless $oldbiblio; |
| 876 |
next unless $oldbiblio; # Record has since been deleted. Deleted records should stay deleted. |
877 |
next unless $oldbiblio; # Record has since been deleted. Deleted records should stay deleted. |
| 877 |
|
878 |
|
| 878 |
$num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'}); |
879 |
$num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'}); |
| 879 |
- |
|
|