fix url generation

This commit is contained in:
Graham Knop 2010-06-15 07:09:05 -05:00
parent d5744acd5b
commit 4bf184009c

View file

@ -200,8 +200,8 @@ sub make_urlmap_work {
return $url; return $url;
} }
my $uri = $self->session->request->base; my $uri = $self->session->request->base;
$uri->path($uri->path . $url); $uri = URI->new($url)->abs($uri->path);
return $uri->path; return $uri->canonical->path;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------