--- loncom/lonnet/perl/lonnet.pm 2012/05/21 18:35:30 1.1172 +++ loncom/lonnet/perl/lonnet.pm 2012/05/28 12:23:03 1.1173 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1172 2012/05/21 18:35:30 bisitz Exp $ +# $Id: lonnet.pm,v 1.1173 2012/05/28 12:23:03 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -75,6 +75,8 @@ use LWP::UserAgent(); use HTTP::Date; use Image::Magick; +use Encode; + use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir $_64bit %env %protocol %loncaparevs %serverhomeIDs %needsrelease %managerstab); @@ -2568,12 +2570,12 @@ sub ssi { } $request->header(Cookie => $ENV{'HTTP_COOKIE'}); - my $response=$ua->request($request); - + my $response= $ua->request($request); + my $content = Encode::decode_utf8($response->content); if (wantarray) { - return ($response->content, $response); + return ($content, $response); } else { - return $response->content; + return $content; } }