koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Joshua Ferraro
Subject: [Koha-cvs] koha/C4 Biblio.pm [rel_2_2]
Date: Sat, 17 Jun 2006 16:26:32 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <kados>  06/06/17 16:26:32

Modified files:
        C4             : Biblio.pm 

Log message:
        possible fix for a bug introduced in the latest series of commits:
        the new firstsubfield setting was causing MARChtml2xml to completely
        mangle the record (as in, no data ended up in the XML). More testing
        will reveal whether this is actually a fix for that or not ...

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.115.2.56&r2=1.115.2.57

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.56
retrieving revision 1.115.2.57
diff -u -b -r1.115.2.56 -r1.115.2.57
--- Biblio.pm   14 Jun 2006 15:39:46 -0000      1.115.2.56
+++ Biblio.pm   17 Jun 2006 16:26:32 -0000      1.115.2.57
@@ -26,7 +26,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.115.2.56 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.115.2.57 $' =~ /\d+/g;
                     shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); 
};
 
 @ISA = qw(Exporter);
@@ -1057,7 +1057,7 @@
                @$values[$i] =~ s/"/&quot;/g;
                @$values[$i] =~ s/'/&apos;/g;
                if (@$firstsubfields[$i]){
-                       $j++ unless (@$tags[$i] eq "");
+                       $j++ unless (@$firstsubfields[$i]); address@hidden eq 
"");
                        #warn 
"IND:".substr(@$indicator[$j],0,1).substr(@$indicator[$j],1,1)." 
"address@hidden;
                        if (!$first){
                        $xml.="</datafield>\n";
@@ -3016,8 +3016,14 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.56 2006/06/14 15:39:46 tipaul Exp $
+# $Id: Biblio.pm,v 1.115.2.57 2006/06/17 16:26:32 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.57  2006/06/17 16:26:32  kados
+# possible fix for a bug introduced in the latest series of commits:
+# the new firstsubfield setting was causing MARChtml2xml to completely
+# mangle the record (as in, no data ended up in the XML). More testing
+# will reveal whether this is actually a fix for that or not ...
+#
 # Revision 1.115.2.56  2006/06/14 15:39:46  tipaul
 # just reindenting
 #




reply via email to

[Prev in Thread] Current Thread [Next in Thread]