only escape dangerous characters

This commit is contained in:
Graham Knop 2008-10-21 18:11:32 +00:00
parent 77913e956b
commit 5b1eb1c095
2 changed files with 8 additions and 8 deletions

View file

@ -437,7 +437,7 @@ sub page {
if ($useFullUrl) {
$url = $self->getSiteURL();
}
my $path = $self->session->asset ? $self->session->asset->get("url") : $self->escape($self->getRequestedUrl);
my $path = $self->session->asset ? $self->session->asset->get("url") : URI::Escape::uri_escape_utf8($self->getRequestedUrl, "^A-Za-z0-9\-_.!~*'()/");
$url .= $self->gateway($path, $pairs, $skipPreventProxyCache);
return $url;
}