[Koha-patches] [PATCH] [SIGNED-OFF] Bug 6135: insert fields ordered in C4::biblio:ModBiblioMarc
Frédéric Demians
f.demians at tamil.fr
Fri May 13 16:19:10 CEST 2011
From: Stéphane Delaune <stephane.delaune at biblibre.com>
Fixing order subfields for biblionumber and biblioitemnumber
BibLibre MT5951
Signed-off-by: Frédéric Demians <f.demians at tamil.fr>
---
C4/Biblio.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index c9590c2..0978f45 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -3020,7 +3020,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 ) {
@@ -3436,7 +3436,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 ) );
}
}
--
1.7.4
More information about the Koha-patches
mailing list