syncing with rel_2_2

diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index 4e829b1..a19cfc0 100755 (executable)
--- 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(