|
Lines 315-321
sub AddBiblio {
Link Here
|
| 315 |
my $marc_for_log = eval { $new_biblio->metadata->record_strip_nonxml }; |
315 |
my $marc_for_log = eval { $new_biblio->metadata->record_strip_nonxml }; |
| 316 |
logaction( |
316 |
logaction( |
| 317 |
"CATALOGUING", "ADD", $biblionumber, "biblio", undef, |
317 |
"CATALOGUING", "ADD", $biblionumber, "biblio", undef, |
| 318 |
{ %{ $new_biblio->unblessed }, _marc => _marc_record_to_diffable($marc_for_log) } |
318 |
{ %{ $new_biblio->_unblessed_for_log }, _marc => _marc_record_to_diffable($marc_for_log) } |
| 319 |
); |
319 |
); |
| 320 |
} |
320 |
} |
| 321 |
|
321 |
|
|
Lines 405-411
sub ModBiblio {
Link Here
|
| 405 |
my ( $original, $original_marc ); |
405 |
my ( $original, $original_marc ); |
| 406 |
if ( C4::Context->preference("CataloguingLog") ) { |
406 |
if ( C4::Context->preference("CataloguingLog") ) { |
| 407 |
my $pre_biblio = Koha::Biblios->find($biblionumber); |
407 |
my $pre_biblio = Koha::Biblios->find($biblionumber); |
| 408 |
$original = $pre_biblio->unblessed; |
408 |
$original = $pre_biblio->_unblessed_for_log; |
| 409 |
$original_marc = eval { $pre_biblio->metadata->record_strip_nonxml }; |
409 |
$original_marc = eval { $pre_biblio->metadata->record_strip_nonxml }; |
| 410 |
} |
410 |
} |
| 411 |
|
411 |
|
|
Lines 474-480
sub ModBiblio {
Link Here
|
| 474 |
my $updated_marc_log = eval { $updated_biblio->metadata->record_strip_nonxml }; |
474 |
my $updated_marc_log = eval { $updated_biblio->metadata->record_strip_nonxml }; |
| 475 |
logaction( |
475 |
logaction( |
| 476 |
"CATALOGUING", "MODIFY", $biblionumber, |
476 |
"CATALOGUING", "MODIFY", $biblionumber, |
| 477 |
{ %{ $updated_biblio->unblessed }, _marc => _marc_record_to_diffable($updated_marc_log) }, |
477 |
{ %{ $updated_biblio->_unblessed_for_log }, _marc => _marc_record_to_diffable($updated_marc_log) }, |
| 478 |
undef, |
478 |
undef, |
| 479 |
{ %{$original}, _marc => _marc_record_to_diffable($original_marc) } |
479 |
{ %{$original}, _marc => _marc_record_to_diffable($original_marc) } |
| 480 |
); |
480 |
); |
|
Lines 627-633
sub DelBiblio {
Link Here
|
| 627 |
|
627 |
|
| 628 |
logaction( |
628 |
logaction( |
| 629 |
"CATALOGUING", "DELETE", $biblionumber, "biblio", undef, |
629 |
"CATALOGUING", "DELETE", $biblionumber, "biblio", undef, |
| 630 |
{ %{ $biblio->unblessed }, _marc => _marc_record_to_diffable($biblio_marc) } |
630 |
{ %{ $biblio->_unblessed_for_log }, _marc => _marc_record_to_diffable($biblio_marc) } |
| 631 |
) if C4::Context->preference("CataloguingLog"); |
631 |
) if C4::Context->preference("CataloguingLog"); |
| 632 |
|
632 |
|
| 633 |
Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue->new->enqueue( { biblio_ids => [$biblionumber] } ) |
633 |
Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue->new->enqueue( { biblio_ids => [$biblionumber] } ) |