From: Jason Etheridge <jason@esilibrary.com>
Date: Fri, 26 Sep 2008 15:25:50 +0000 (+0000)
Subject: that marc batch utf8 hack doesn't play nice with the explicit MARC::File::XML utf8... 
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=52ef01d52ff3bfc3384df93289de73acb87a755a

that marc batch utf8 hack doesn't play nice with the explicit MARC::File::XML utf8 load
---

diff --git a/spit_csv.pl b/spit_csv.pl
index fbf29e9..8a02003 100755
--- a/spit_csv.pl
+++ b/spit_csv.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use MARC::Batch;
 use MARC::File::XML ( BinaryEncoding => 'utf-8' );
-use MARC::Field;
+#use MARC::Field;
 use Unicode::Normalize;
 
 
@@ -20,9 +20,10 @@ foreach my $argnum ( 0 .. 0 ) {
 
 	print STDERR "Processing " . $ARGV[$argnum] . "\n";
 
-    my $M;
-    open $M, '<:utf8', $ARGV[$argnum];
-    my $batch = MARC::Batch->new('XML',$M);
+    #my $M;
+    #open $M, '<:utf8', $ARGV[$argnum];
+    #my $batch = MARC::Batch->new('XML',$M);
+    my $batch = MARC::Batch->new('XML',$ARGV[$argnum]);
 
 	$batch->strict_off();
 	$batch->warnings_off();