+Support for: $W->{"css_push"}

[www.jankratochvil.net.git] / project / Rel.pm

diff --git a/project/Rel.pm b/project/Rel.pm
index 196326a..ae0d5f3 100755 (executable)
--- a/project/Rel.pm
+++ b/project/Rel.pm
@@ -67,9 +67,7 @@ for (0..$#projects) {
        }
 
 $W->{"r"}->status(HTTP_MOVED_TEMPORARILY);
-$W->{"r"}->headers_out()->{"Location"}="http://".$W->{"web_hostname"}
-#              .":7680"        # DEBUG
-               ."/project/".(!$target ? "" : "$target/");
+$W->{"r"}->headers_out()->{"Location"}=path_web "./".($target && "$target/"),"abs"=>1;
 
 
 exit 0;