diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index a19cfc0394..c138184dfd 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -498,8 +498,11 @@ if ($op eq "addbiblio") { $biblionumber= ""; } #FIXME: it's kind of silly to go from MARC::Record to MARC::File::XML and then back again just to fix the encoding + eval { my $uxml = $record->as_xml; my $urecord = MARC::Record::new_from_xml($uxml, 'UTF-8'); + $record = $urecord; + }; build_tabs ($template, $record, $dbh,$encoding); build_hidden_data; $template->param(