my $schema = Koha::Database->new->schema;
$schema->txn_do(
sub {
my $metadata = Koha::Biblio::Metadatas->find( { biblionumber => $biblionumber } );
if ($metadata) {
my $marc = $metadata->record;
if ($marc) {
my $leader = $marc->leader;
substr( $leader, 5, 1, 'd' );
$marc->leader($leader);
my $encoding = C4::Context->preference("marcflavour");
$metadata->update( { metadata => $marc->as_xml_record($encoding) } );
}
$dbh->do(
q|
INSERT INTO deletedbiblio_metadata (biblionumber, format, `schema`, metadata)
-