diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl index 243f565e1a..e07b8696f5 100755 --- a/acqui.simple/addbiblio.pl +++ b/acqui.simple/addbiblio.pl @@ -430,7 +430,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'); @@ -481,7 +481,7 @@ if ($op eq "addbiblio") { $indicators{$ind_tag[$i]} = $indicator[$i]; } 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'); #my $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators); # adding an empty field my $field = MARC::Field->new("$addedfield",'','','$tagaddfield_subfield' => ""); diff --git a/acqui.simple/additem.pl b/acqui.simple/additem.pl index 0a5adb6056..a4de84e04c 100755 --- a/acqui.simple/additem.pl +++ b/acqui.simple/additem.pl @@ -80,7 +80,7 @@ if ($op eq "additem") { # $indicators{$ind_tag[$i]} = $indicator[$i]; #} 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); #my $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators); # if autoBarcode is ON, calculate barcode... if (C4::Context->preference('autoBarcode')) { @@ -138,7 +138,7 @@ if ($op eq "additem") { # $indicators{$ind_tag[$i]} = $indicator[$i]; #} 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); #my $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators); # MARC::Record builded => now, record in DB # warn "R: ".$record->as_formatted;