decode utf-8 marc correctly before saving

diff --git a/t/yaz/vuFind b/t/yaz/vuFind
index 61b005a..4aeccfa 100644 (file)
--- a/t/yaz/vuFind
+++ b/t/yaz/vuFind
@@ -1,5 +1,5 @@
 open localhost:9999/HATHITRUST
-find "Croatia"
+find "Krleža"
 show 1+3
 
 quit

diff --git a/vuFind.pm b/vuFind.pm
index b05b73f..d3e95e5 100644 (file)
--- a/vuFind.pm
+++ b/vuFind.pm
@@ -6,6 +6,7 @@ use strict;
 use MARC::Record;
 use Data::Dump qw/dump/;
 use JSON::XS;
+use Encode;
 
 use base 'Scraper';
 
@@ -82,7 +83,9 @@ sub next_marc {
 
        $self->mech->get( $url . '.mrc' );
 
-       $self->save_marc( "$id.marc", $self->mech->content );
+       my $marc = decode('utf-8', $self->mech->content );
+
+       $self->save_marc( "$id.marc", $marc );
 
        return $id;