fix skipping of fields >= 900

[Biblio-Z3950.git] / DPLA.pm

diff --git a/DPLA.pm b/DPLA.pm
index 090846b..1ea8ec4 100644 (file)
--- a/DPLA.pm
+++ b/DPLA.pm
@@ -54,7 +54,7 @@ sub diag {
 # @attr 1=1016 any
 
 sub usemap {{
-       4               => 'dpla.title',
+       4               => 'dpla.title_keyword',
        7               => 'dpla.isbn',
        8               => 'dpla.keyword', # XXX fake
        1003    => 'dpla.creator_keyword',
@@ -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 {