fix encoding

ufal · Sep 12, 2017 · f7dfc34 · f7dfc34
1 parent e609386
commit f7dfc34
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/PMLTQ/Server/Controller/User/QueryFile/QueryRecord.pm b/lib/PMLTQ/Server/Controller/User/QueryFile/QueryRecord.pm
@@ -4,6 +4,7 @@ package PMLTQ::Server::Controller::User::QueryFile::QueryRecord;
 
 use Mojo::Base 'PMLTQ::Server::Controller::CRUD';
 use PMLTQ::Server::Validation;
+use Encode qw(encode_utf8);
 
 has resultset_name => 'QueryRecord';
 
@@ -33,7 +34,7 @@ sub _validate {
   }
 
   $data = $c->do_validation($rules, $data);
-  $data->{hash} = collapse_query()->($data->{query});
+  $data->{hash} = encode_utf8(collapse_query()->($data->{query}));
   $data->{user_id} = $c->current_user->id;
 
   $data->{query_file_id} ||= $c->stash->{query_file}->id;