[Koha-cvs] koha/C4 Biblio.pm [rel_2_2]

[Thomas D]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Thomas D <thd at savannah.gnu.org>	06/02/20 09:18:57

Modified files:
	C4             : Biblio.pm 

Log message:
	Reverse array filled with elements from repeated subfields from first to last
	to avoid last to first concatenation of elements in Koha DB.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?only_with_tag=rel_2_2&tr1=1.115.2.29&tr2=1.115.2.30&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.115.2.29 koha/C4/Biblio.pm:1.115.2.30
--- koha/C4/Biblio.pm:1.115.2.29	Tue Feb  7 15:33:35 2006
+++ koha/C4/Biblio.pm	Mon Feb 20 09:18:57 2006
@@ -1153,7 +1153,10 @@
 		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() ;
 			}
@@ -2916,8 +2919,12 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.29 2006/02/07 15:33:35 hdl Exp $
+# $Id: Biblio.pm,v 1.115.2.30 2006/02/20 09:18:57 thd Exp $
 # $Log: Biblio.pm,v $
+# 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
 #