adding eval to fix 500 error with blank marc record

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