@@ -, +, @@ --- C4/Auth.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -19,10 +19,13 @@ package C4::Auth; use strict; use warnings; + use Digest::MD5 qw(md5_base64); use Storable qw(thaw freeze); use URI::Escape; use CGI::Session; +use Encode; +use Carp; require Exporter; use C4::Context; @@ -1067,12 +1070,15 @@ sub checkauth { $template->param( %info ); # $cookie = $query->cookie(CGISESSID => $session->id # ); + my $data = $template->output; + eval { $data = encode('UTF-8',$data,Encode::FB_CROAK); }; + if ($@) { carp "UTF8 encoding error: $@" }; print $query->header( -type => 'text/html', -charset => 'utf-8', -cookie => $cookie ), - $template->output; + $data; safe_exit; } --