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

(-)a/C4/ImportBatch.pm (-3 / +3 lines)
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
- 

Return to bug 14597