gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

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>
(cherry picked from commit 97964bc3e9)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Stéphane Delaune 2011-05-13 16:19:10 +02:00 committed by Chris Nighswonger
parent d17fc11874
commit d5a8cb1b42
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

@ -3026,7 +3026,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 ) {
@ -3442,7 +3442,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 ) );
}
}