forgot to add 'utf-8' argument to new_from_xml()

diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index 30ce441..7b208fd 100755 (executable)
--- 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 6b7350d..38d352b 100755 (executable)
--- 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);