+Support for: $W->{"css_push"}
[www.jankratochvil.net.git] / Index.pm
index 576b2de..e620822 100644 (file)
--- a/Index.pm
+++ b/Index.pm
@@ -37,7 +37,7 @@ my $W=My::Web->init(
 
 
 $W->{"r"}->status(HTTP_MOVED_TEMPORARILY);
-$W->{"r"}->headers_out()->{"Location"}="http://".$W->{"web_hostname"}."/project/";
+$W->{"r"}->headers_out()->{"Location"}=path_web "./project/","abs"=>1;
 
 
 exit 0;