Bug 94627 - utf8 problems with URI::QueryParam

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1516 6955db30-a419-402b-8a0d-67ecbb4d7f56
master
vfilippov 2012-02-21 18:43:54 +00:00
parent 13114a0097
commit d8d49e2967
1 changed files with 7 additions and 2 deletions

View File

@ -10,6 +10,7 @@ use Bugzilla::User;
use Bugzilla::Util;
use Bugzilla::Constants;
use Encode;
use HTTP::Request::Common;
use LWP::Simple qw($ua);
use URI;
@ -116,8 +117,12 @@ if (($id = $args->{ga_id}) && !$args->{ga_client})
# отправляем запрос серверу клиента
my $res = $ua->request(POST "$url", Content => $authdata);
# и делаем перенаправление в браузере
$url->query_param(ga_id => $id);
$url->query_param(ga_res => $res->code);
{
no utf8;
# URI::QueryParam имеет проблемы с утф'ом...
$url->query_param(ga_id => $id);
$url->query_param(ga_res => $res->code);
}
$dbh->do("DELETE FROM globalauth WHERE id=?", undef, $id);
print $cgi->redirect(-location => "$url");
exit;