From d132e60e33d9f8a7b61d028715ca1f99c35d40d9 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 2 Jul 2007 09:50:03 +0000
Subject: [PATCH] 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

---
 cataloguing/additem.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index fddd30b0f1..435c282c3c 100755
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -83,7 +83,7 @@ if ($op eq "additem") {
     # build indicator hash.
     my @ind_tag = $input->param('ind_tag');
     my @indicator = $input->param('indicator');
-    my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag);
+    my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag, 'ITEM');
         my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
     # if autoBarcode is ON, calculate barcode...
     if (C4::Context->preference('autoBarcode')) {
@@ -144,7 +144,7 @@ if ($op eq "additem") {
     my @ind_tag = $input->param('ind_tag');
     my @indicator = $input->param('indicator');
 #    my $itemnumber = $input->param('itemnumber');
-    my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag);
+    my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag,'ITEM');
         my $itemrecord=MARC::Record::new_from_xml($xml, 'UTF-8');
 # MARC::Record builded => now, record in DB
 # warn "R: ".$record->as_formatted;
-- 
2.39.2