From ec6cca946a7854179f5aae18eec4267e53b0693f Mon Sep 17 00:00:00 2001 From: thd Date: Mon, 20 Feb 2006 09:18:57 +0000 Subject: [PATCH] Reverse array filled with elements from repeated subfields from first to last to avoid last to first concatenation of elements in Koha DB. --- C4/Biblio.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 9e02deb892..17993316d0 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1153,7 +1153,10 @@ sub MARCmarc2kohaOneField { 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() ; } @@ -2918,6 +2921,10 @@ Paul POULAIN paul.poulain@free.fr # $Id$ # $Log$ +# Revision 1.115.2.30 2006/02/20 09:18:57 thd +# Reverse array filled with elements from repeated subfields from first to last +# to avoid last to first concatenation of elements in Koha DB. +# # Revision 1.115.2.29 2006/02/07 15:33:35 hdl # Adding a new system preference : serialsadditem # -- 2.39.5