From ea32a21f7fe7e155d664d56305663087aefac75a Mon Sep 17 00:00:00 2001 From: kados Date: Sat, 1 Apr 2006 23:06:22 +0000 Subject: [PATCH] adding eval to fix 500 error with blank marc record --- cataloguing/addbiblio.pl | 3 +++ 1 file changed, 3 insertions(+) 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( -- 2.39.5