Bug 17720: CSRF - Handle unicode characters

[srvgit] / members / moremember.pl

diff --git a/members/moremember.pl b/members/moremember.pl
index 0661d0f..70aed84 100755 (executable)
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -37,6 +37,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use CGI qw ( -utf8 );
 use Digest::MD5 qw(md5_base64);
+use Encode qw( encode );
 use C4::Context;
 use C4::Auth;
 use C4::Output;
@@ -275,7 +276,7 @@ $template->param( picture => 1 ) if $patron_image;
 $template->param(
     csrf_token => Koha::Token->new->generate_csrf({
         id     => C4::Context->userenv->{id},
-        secret => md5_base64( C4::Context->config('pass') ),
+        secret => md5_base64( Encode::encode( 'UTF-8', C4::Context->config('pass') ) ),
     }),
 );