From 2069910cd7d382b9e1a7d16de878f4ac6882a3cb Mon Sep 17 00:00:00 2001 From: kados Date: Mon, 6 Mar 2006 02:51:04 +0000 Subject: [PATCH] forgot to add 'utf-8' argument to new_from_xml() --- cataloguing/addbiblio.pl | 4 ++-- cataloguing/additem.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index 30ce44187b..7b208fd236 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -419,7 +419,7 @@ if ($op eq "addbiblio") { my @ind_tag = $input->param('ind_tag'); my @indicator = $input->param('indicator'); my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag); - my $record=MARC::Record::new_from_xml($xml); + my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); # check for a duplicate my ($duplicatebiblionumber,$duplicatebibid,$duplicatetitle) = FindDuplicate($record) if ($op eq "addbiblio") && (!$is_a_modif); my $confirm_not_duplicate = $input->param('confirm_not_duplicate'); @@ -464,7 +464,7 @@ if ($op eq "addbiblio") { my @ind_tag = $input->param('ind_tag'); my @indicator = $input->param('indicator'); my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag); - my $record=MARC::Record::new_from_xml($xml); + my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); # adding an empty field my $field = MARC::Field->new("$addedfield",'','','a'=> ""); $record->append_fields($field); diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 6b7350d50d..38d352b2df 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -75,7 +75,7 @@ if ($op eq "additem") { my @ind_tag = $input->param('ind_tag'); my @indicator = $input->param('indicator'); my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag); - my $record=MARC::Record::new_from_xml($xml); + my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); # if autoBarcode is ON, calculate barcode... if (C4::Context->preference('autoBarcode')) { my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.barcode"); @@ -122,7 +122,7 @@ if ($op eq "additem") { my @indicator = $input->param('indicator'); # my $itemnumber = $input->param('itemnumber'); my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag); - my $itemrecord=MARC::Record::new_from_xml($xml); + my $itemrecord=MARC::Record::new_from_xml($xml, 'UTF-8'); # MARC::Record builded => now, record in DB # warn "R: ".$record->as_formatted; my ($oldbiblionumber,$oldbibnum,$oldbibitemnum) = NEWmoditem($dbh,$record,$biblionumber,$itemnumber,0); -- 2.39.5