Reverse array filled with elements from repeated subfields

to avoid last to first concatenation of elements in Koha DB.-
This commit is contained in:
thd 2005-12-12 14:25:51 +00:00
parent 8b2316640b
commit 09d82dc0aa
1 changed files with 12 additions and 3 deletions

View File

@ -602,7 +602,10 @@ sub MARCmarc2kohaOneField {
foreach my $field ( $record->field($tagfield) ) {
if ($field->tag()<10) {
if ($result->{$kohafield}) {
$result->{$kohafield} .= " | ".$field->data();
# Reverse array filled with elements from repeated subfields
# from first to last to avoid last to first concatenation of
# elements in Koha DB. -- thd.
$result->{$kohafield} .= " | ".reverse($field->data());
} else {
$result->{$kohafield} = $field->data();
}
@ -2881,7 +2884,13 @@ Paul POULAIN paul.poulain@free.fr
# $Id$
# $Log$
# Revision 1.132 2005/10/26 09:12:33 tipaul
# Revision 1.133 2005/12/12 14:25:51 thd
#
#
# Reverse array filled with elements from repeated subfields
# to avoid last to first concatenation of elements in Koha DB.-
#
# Revision 1.132 2005-10-26 09:12:33 tipaul
# big commit, still breaking things...
#
# * synch with rel_2_2. Probably the last non manual synch, as rel_2_2 should not be modified deeply.
@ -2961,4 +2970,4 @@ Paul POULAIN paul.poulain@free.fr
# IMPORTANT NOTE : you need MARC::XML package (http://search.cpan.org/~esummers/MARC-XML-0.7/lib/MARC/File/XML.pm), that requires a recent version of MARC::Record
# Updatedatabase stores the iso2709 data in biblioitems.marc field & an xml version in biblioitems.marcxml Not sure we will keep it when releasing the stable version, but I think it's a good idea to have something readable in sql, at least for development stage.
# tipaul cutted previous commit notes
# tipaul cutted previous commit notes