[Koha-cvs] koha/C4 Biblio.pm

[Thomas D]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Thomas D <address@hidden>       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