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

(-)a/C4/Biblio.pm (-3 / +2 lines)
Lines 2924-2930 sub _koha_marc_update_bib_ids { Link Here
2924
        # drop old field and create new one...
2924
        # drop old field and create new one...
2925
        $old_field = $record->field($biblio_tag);
2925
        $old_field = $record->field($biblio_tag);
2926
        $record->delete_field($old_field) if $old_field;
2926
        $record->delete_field($old_field) if $old_field;
2927
        $record->append_fields($new_field);
2927
        $record->insert_fields_ordered($new_field);
2928
2928
2929
        # deal with biblioitemnumber
2929
        # deal with biblioitemnumber
2930
        if ( $biblioitem_tag < 10 ) {
2930
        if ( $biblioitem_tag < 10 ) {
Lines 3340-3346 sub ModBiblioMarc { Link Here
3340
        }
3340
        }
3341
        substr( $string, 22, 6, "frey50" );
3341
        substr( $string, 22, 6, "frey50" );
3342
        unless ( $record->subfield( 100, "a" ) ) {
3342
        unless ( $record->subfield( 100, "a" ) ) {
3343
            $record->insert_grouped_field( MARC::Field->new( 100, "", "", "a" => $string ) );
3343
            $record->insert_fields_ordered( MARC::Field->new( 100, "", "", "a" => $string ) );
3344
        }
3344
        }
3345
    }
3345
    }
3346
3346
3347
- 

Return to bug 6135