Operations should be able to handle UTF-8 urls, too. Fixes bug #11683

This commit is contained in:
Colin Kuskie 2010-07-27 15:37:53 -07:00
parent c92d18259c
commit 49374b43eb
3 changed files with 11 additions and 2 deletions

View file

@ -21,6 +21,7 @@ use URI::Escape;
use Scalar::Util qw( weaken );
use WebGUI::International;
use WebGUI::Utility;
use Encode;
=head1 NAME
@ -323,7 +324,7 @@ sub getRequestedUrl {
my $self = shift;
return undef unless ($self->session->request);
unless ($self->{_requestedUrl}) {
$self->{_requestedUrl} = $self->session->request->uri;
$self->{_requestedUrl} = decode_utf8($self->session->request->uri);
my $gateway = $self->session->config->get("gateway");
$self->{_requestedUrl} =~ s/^$gateway([^?]*)\??.*$/$1/;
}