r1860@llin: dpavlin | 2009-04-29 20:11:35 +0200

 encode outgoing xml for swish-e in utf-8

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1179 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm
index 19a5532..be512ef 100644 (file)
--- a/lib/WebPAC/Output/SWISH.pm
+++ b/lib/WebPAC/Output/SWISH.pm
@@ -18,6 +18,7 @@ use File::Path qw/mkpath/;
 use Data::Dump qw/dump/;
 use YAML;
 use JSON;
+use Encode qw/encode/;
 
 
 =head1 NAME
@@ -183,6 +184,8 @@ sub add {
 
        $xml .= qq{</all>\n};
 
+       $xml = encode('utf-8', $xml);
+
        my $len = length($xml);
 
        my $fh = $self->{_swish_fh} || die "_swish_fh missing";