From d132e60e33d9f8a7b61d028715ca1f99c35d40d9 Mon Sep 17 00:00:00 2001 From: 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.5