[Koha-cvs] koha/C4 Biblio.pm

[Thomas D]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Thomas D <thd at savannah.gnu.org>	05/12/12 14:25:51

Modified files:
	C4             : Biblio.pm 

Log message:
	Reverse array filled with elements from repeated subfields
	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?tr1=1.132&tr2=1.133&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.132 koha/C4/Biblio.pm:1.133
--- koha/C4/Biblio.pm:1.132	Wed Oct 26 09:12:33 2005
+++ koha/C4/Biblio.pm	Mon Dec 12 14:25:51 2005
@@ -602,7 +602,10 @@
     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();
 			}
@@ -2879,9 +2882,15 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.132 2005/10/26 09:12:33 tipaul Exp $
+# $Id: Biblio.pm,v 1.133 2005/12/12 14:25:51 thd Exp $
 # $Log: Biblio.pm,v $
-# 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 @@
 # 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
\ No newline at end of file
+# tipaul cutted previous commit notes