From b60c689434e5d386b81e4f7c38b2b2300c95f153 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Tue, 8 Jan 2008 16:43:20 -0600
Subject: [PATCH] more logs for MARC::Charset problems

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Biblio.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index bb81ed4f35..e96e1e5a4f 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -748,7 +748,7 @@ sub GetMarcBiblio {
     my $record = MARC::Record->new();
     if ($marcxml) {
         $record = eval {MARC::Record::new_from_xml( $marcxml, "utf8", C4::Context->preference('marcflavour'))};
-        if ($@) {warn $@;}
+        if ($@) {warn " problem with :$biblionumber : $@ \n$marcxml";}
 #      $record = MARC::Record::new_from_usmarc( $marc) if $marc;
         return $record;
     } else {
-- 
2.39.5