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

(-)a/C4/Biblio.pm (-1 / +11 lines)
Lines 2863-2868 sub _koha_delete_biblio_metadata { Link Here
2863
    my $schema = Koha::Database->new->schema;
2863
    my $schema = Koha::Database->new->schema;
2864
    $schema->txn_do(
2864
    $schema->txn_do(
2865
        sub {
2865
        sub {
2866
            my $metadata = Koha::Biblio::Metadatas->find( { biblionumber => $biblionumber } );
2867
            if ($metadata) {
2868
                my $marc = $metadata->record;
2869
                if ($marc) {
2870
                    my $leader = $marc->leader;
2871
                    substr( $leader, 5, 1, 'd' );
2872
                    $marc->leader($leader);
2873
                    my $encoding = C4::Context->preference("marcflavour");
2874
                    $metadata->update( { metadata => $marc->as_xml_record($encoding) } );
2875
                }
2876
            }
2866
            $dbh->do(
2877
            $dbh->do(
2867
                q|
2878
                q|
2868
                INSERT INTO deletedbiblio_metadata (biblionumber, format, `schema`, metadata)
2879
                INSERT INTO deletedbiblio_metadata (biblionumber, format, `schema`, metadata)
2869
- 

Return to bug 42039