|
Lines 316-322
sub ModBiblio {
Link Here
|
| 316 |
|
316 |
|
| 317 |
if ( C4::Context->preference("CataloguingLog") ) { |
317 |
if ( C4::Context->preference("CataloguingLog") ) { |
| 318 |
my $newrecord = GetMarcBiblio($biblionumber); |
318 |
my $newrecord = GetMarcBiblio($biblionumber); |
| 319 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted ); |
319 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "biblio BEFORE=>" . $newrecord->as_formatted ); |
| 320 |
} |
320 |
} |
| 321 |
|
321 |
|
| 322 |
# Cleaning up invalid fields must be done early or SetUTF8Flag is liable to |
322 |
# Cleaning up invalid fields must be done early or SetUTF8Flag is liable to |
|
Lines 470-476
sub DelBiblio {
Link Here
|
| 470 |
# from being generated by _koha_delete_biblioitems |
470 |
# from being generated by _koha_delete_biblioitems |
| 471 |
$error = _koha_delete_biblio( $dbh, $biblionumber ); |
471 |
$error = _koha_delete_biblio( $dbh, $biblionumber ); |
| 472 |
|
472 |
|
| 473 |
logaction( "CATALOGUING", "DELETE", $biblionumber, "" ) if C4::Context->preference("CataloguingLog"); |
473 |
logaction( "CATALOGUING", "DELETE", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog"); |
| 474 |
|
474 |
|
| 475 |
return; |
475 |
return; |
| 476 |
} |
476 |
} |