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 |
- |
|
|