From a43dad2bbf974b2eaec3a023eeddd15ddf9d95a6 Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Thu, 11 May 2006 14:55:24 +0000
Subject: [PATCH] MARC::File::XML switched the API in 0.83, this code updates
 Koha -- it will break your record editing if you don't upgrade
 MARC::File::XML to 0.83 on CPAN.

---
 C4/Biblio.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 48b35b7155..4678a4c85b 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1042,9 +1042,10 @@ sub MARCkoha2marcOnefield {
 }
 sub MARChtml2xml {
 	my ($tags,$subfields,$values,$indicator,$ind_tag) = @_;        
-	#use MARC::File::XML;
-	my $xml= MARC::File::XML::header(C4::Context->preference('marcflavour'),C4::Context->preference('TemplateEncoding')); 
+	use MARC::File::XML;
+	my $xml= MARC::File::XML::header(C4::Context->preference('TemplateEncoding'),C4::Context->preference('marcflavour')); 
 	#$xml =~ s/UTF-8/ISO-8859-1/;
+	#tell perl that $xml is whatever default encoding is
     my $prevvalue;
     my $prevtag=-1;
     my $first=1;
@@ -3006,6 +3007,11 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.115.2.53  2006/05/11 14:55:24  kados
+# MARC::File::XML switched the API in 0.83, this code updates Koha --
+# it will break your record editing if you don't upgrade MARC::File::XML
+# to 0.83 on CPAN.
+#
 # Revision 1.115.2.52  2006/05/11 14:15:51  rangi
 # Adding version string
 #
-- 
2.39.5