From ea32a21f7fe7e155d664d56305663087aefac75a Mon Sep 17 00:00:00 2001
From: kados <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