[Koha-cvs] koha/C4 Biblio.pm

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     paul poulain <tipaul>   07/07/02 09:13:23

Modified files:
        C4             : Biblio.pm 

Log message:
        unimarc bugfix : the encoding is in field 100 in UNIMARC. when 
TransformHTMLtoXML on an item, you must not automatically add a 100 field in 
items, otherwise there will be 2 100 fields in the biblio, which is wrong

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.213&r2=1.214

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -b -r1.213 -r1.214
--- Biblio.pm   25 Jun 2007 15:01:45 -0000      1.213
+++ Biblio.pm   2 Jul 2007 09:13:22 -0000       1.214
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.213 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.214 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -1985,8 +1985,12 @@
 
 =over 4
 
-$xml = TransformHtmlToXml( $tags, $subfields, $values, $indicator, $ind_tag )
+$xml = TransformHtmlToXml( $tags, $subfields, $values, $indicator, $ind_tag, 
$auth_type )
 
+$auth_type contains :
+- nothing : rebuild a biblio, un UNIMARC the encoding is in 100$a pos 26/27
+- UNIMARCAUTH : rebuild an authority. In UNIMARC, the encoding is in 100$a pos 
13/14
+- ITEM : rebuild an item : in UNIMARC, 100$a, it's in the biblio ! (otherwise, 
we would get 2 100 fields !)
 =back
 
 =cut
@@ -2000,6 +2004,7 @@
     # check that there is one, otherwise the 
     # MARC::Record->new_from_xml will fail (and Koha will die)
     my $unimarc_and_100_exist=0;
+    $unimarc_and_100_exist=1 if $auth_type eq 'ITEM'; # if we rebuild an item, 
no need of a 100 field
     my $prevvalue;
     my $prevtag = -1;
     my $first   = 1;
@@ -3952,8 +3957,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.213 2007/06/25 15:01:45 tipaul Exp $
+# $Id: Biblio.pm,v 1.214 2007/07/02 09:13:22 tipaul Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.214  2007/07/02 09:13:22  tipaul
+# unimarc bugfix : the encoding is in field 100 in UNIMARC. when 
TransformHTMLtoXML on an item, you must not automatically add a 100 field in 
items, otherwise there will be 2 100 fields in the biblio, which is wrong
+#
 # Revision 1.213  2007/06/25 15:01:45  tipaul
 # bugfixes on unimarc 100 handling (the field used for encoding)
 #