diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index 4e829b116b..a19cfc0394 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -497,7 +497,9 @@ 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 + my $uxml = $record->as_xml; + my $urecord = MARC::Record::new_from_xml($uxml, 'UTF-8'); build_tabs ($template, $record, $dbh,$encoding); build_hidden_data; $template->param(