Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 6135: insert fields ordered in C4::biblio:ModBiblioMarc

Browse source 
Fixing order subfields for biblionumber and biblioitemnumber

BibLibre MT5951

Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Stéphane Delaune 2011-05-13 16:19:10 +02:00 committed by Chris Cormack
parent e793b0dda6
commit 97964bc3e9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Biblio.pm
View file

@ -3071,7 +3071,7 @@ sub _koha_marc_update_bib_ids {
# drop old field and create new one...
$old_field = $record->field($biblio_tag);
$record->delete_field($old_field) if $old_field;
$record->append_fields($new_field);
$record->insert_fields_ordered($new_field);
# deal with biblioitemnumber
if ( $biblioitem_tag < 10 ) {
@ -3487,7 +3487,7 @@ sub ModBiblioMarc {
}
substr( $string, 22, 6, "frey50" );
unless ( $record->subfield( 100, "a" ) ) {
$record->insert_grouped_field( MARC::Field->new( 100, "", "", "a" => $string ) );
$record->insert_fields_ordered( MARC::Field->new( 100, "", "", "a" => $string ) );
}
}