From ffa0c3a7c2dae349864efe6ed84685ede4696486 Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Tue, 21 Mar 2006 14:47:12 +0000
Subject: [PATCH] fixes a bug where if the record contained wide chars already
 it would throw a 500 error.

---
 acqui.simple/addbiblio.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 3631b841d0..c0e9cdcf94 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -538,8 +538,12 @@ if ($op eq "addbiblio") {
 	}
 	unless ($record == -1) {
 	#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;
-        $record = MARC::Record::new_from_xml($uxml, 'UTF-8'); 
+	eval {
+        	my $uxml = $record->as_xml;
+		my $newrecord = MARC::Record::new_from_xml($uxml, 'UTF-8');
+		$record = $newrecord;
+	};
+
 	}
 	build_tabs ($template, $record, $dbh,$encoding);
 	build_hidden_data;
-- 
2.39.5