Merge branch 'master' into WebGUI8, up to 7.9.10. Some tests failing due to changes in default content.

This commit is contained in:
Colin Kuskie 2010-07-27 22:55:57 -07:00
commit ca9a3bd6c7
34 changed files with 386 additions and 49 deletions

View file

@ -22,6 +22,7 @@ use Scalar::Util qw( weaken );
use WebGUI::International;
use WebGUI::Utility;
use Scalar::Util qw(weaken);
use Encode;
=head1 NAME
@ -326,7 +327,7 @@ sub getRequestedUrl {
my $self = shift;
return undef unless ($self->session->request);
unless ($self->{_requestedUrl}) {
$self->{_requestedUrl} = $self->session->request->path_info; # TODO - is path_info right?
$self->{_requestedUrl} = decode_utf8($self->session->request->path_info); # TODO - is path_info right?
my $gateway = $self->session->config->get("gateway");
$self->{_requestedUrl} =~ s/^$gateway([^?]*)\??.*$/$1/;
}