From 9b600086424b82023c7bdd0e1127cc83b3f3746b Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 16 Aug 2005 21:18:58 +0000
Subject: [PATCH] allow encoding to be passed to as_xml

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1668 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/MARC/File/XML.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/MARC/File/XML.pm b/Open-ILS/src/perlmods/MARC/File/XML.pm
index 3e794fb66a..2880732a77 100644
--- a/Open-ILS/src/perlmods/MARC/File/XML.pm
+++ b/Open-ILS/src/perlmods/MARC/File/XML.pm
@@ -85,7 +85,8 @@ Returns a MARC::Record object serialized in XML.
 
 sub MARC::Record::as_xml {
     my $record = shift;
-    return(  MARC::File::XML::encode( $record ) );
+    my $enc = shift;
+    return(  MARC::File::XML::encode( $record, $enc ) );
 }
 
 =head2 new_from_xml()
-- 
2.43.2