diff --git a/lib/WebGUI/Macro/PageUrl.pm b/lib/WebGUI/Macro/PageUrl.pm index f30d8ef56..a7827b425 100644 --- a/lib/WebGUI/Macro/PageUrl.pm +++ b/lib/WebGUI/Macro/PageUrl.pm @@ -17,7 +17,7 @@ use WebGUI::URL; #------------------------------------------------------------------- sub process { my $pathinfo = $session{env}{PATH_INFO}; - $pathinfo =~ s/^\/(.*)/$1/; + $pathinfo =~ s#^/##; return WebGUI::URL::getScriptURL().$pathinfo; }