From 5888c7eca957b6bbb8cd89edbd8d4a279710bba4 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 29 Apr 2009 18:14:17 +0000 Subject: [PATCH] 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 --- lib/WebPAC/Output/SWISH.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm index 19a5532..be512ef 100644 --- 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{\n}; + $xml = encode('utf-8', $xml); + my $len = length($xml); my $fh = $self->{_swish_fh} || die "_swish_fh missing"; -- 2.20.1