From 97964bc3e95fe050dac417f49ac747b3d768a164 Mon Sep 17 00:00:00 2001 From: =?utf8?q?St=C3=A9phane=20Delaune?= Date: Fri, 13 May 2011 16:19:10 +0200 Subject: [PATCH] Bug 6135: insert fields ordered in C4::biblio:ModBiblioMarc MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Fixing order subfields for biblionumber and biblioitemnumber BibLibre MT5951 Signed-off-by: Frédéric Demians Signed-off-by: Chris Cormack --- C4/Biblio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index a91562ccb5..96baaef42b 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -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 ) ); } } -- 2.39.5