fix encoding returned from DPLA

diff --git a/DPLA.pm b/DPLA.pm
index 76fa38c..1ea8ec4 100644 (file)
--- a/DPLA.pm
+++ b/DPLA.pm
@@ -139,7 +139,7 @@ sub next_marc {
                                $fields->[$i]->[0] = $f;
                                $fields->[$i]->[1] = ' ';
                                $fields->[$i]->[2] = ' ';
-                               push @{ $fields->[$i] }, $sf, $v->[$i];
+                               push @{ $fields->[$i] }, $sf, decode('utf-8', $v->[$i]); # decode here fixes API encoding error
                        }
 
                } else {