URL relativization.

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index 2226a64..13a8d95 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -113,7 +113,7 @@ my($class,$ListItem)=@_;
                                                                                                ["Download CVS snapshot" ,
                                                                                                                $W->{"project_viewcvs"}.$val."/".File::Basename::basename($val).".tar.gz?tarball=1"
                                                                                                                                .(!$branch ? "" : '&only_with_tag='.$branch)],
-                                                                                               ["CVS ChangeLog"         ,top_dir()."/project/ChangeLog.txt.pl?cvs=$val"])));
+                                                                                               ["CVS ChangeLog"         ,"/project/ChangeLog.txt.pl?cvs=$val"])));
                                                }},
                {"key"=>"ownership","text"=>"Ownership"},
                {"key"=>"sponsorship","text"=>"Sponsorship"},
@@ -247,10 +247,10 @@ my($class,$view_selected)=@_;
 <h1>Project List of @{[ a_href 'http://www.jankratochvil.net/','Jan Kratochvil' ]}</h1>
 
 <ul>
-       <li>@{[ &{$view}('Detailed'     ,top_dir().'/project/','Detailed project listing per platform') ]}</li>
-       <li>@{[ &{$view}('BriefPlatform',top_dir().'/project/List.html.pl?platform=platform',
+       <li>@{[ &{$view}('Detailed'     ,'/project/','Detailed project listing per platform') ]}</li>
+       <li>@{[ &{$view}('BriefPlatform','/project/List.html.pl?platform=platform',
                        'Brief project listing per platform') ]}</li>
-       <li>@{[ &{$view}('BriefUnified' ,top_dir().'/project/List.html.pl',
+       <li>@{[ &{$view}('BriefUnified' ,'/project/List.html.pl',
                        'Unified brief project listing') ]}</li>
 </ul>
 @{[ vskip "1ex" ]}
@@ -273,7 +273,7 @@ my($class,$platform_selected)=@_;
                                                my $platform_name=shift @platforms;
                                                my $chosen=($platform_selected && $platform_selected eq $platform_sym);
                                                $r.='<td style="padding: 5px;">';
-                                                       $r.=a_href((!$platform_selected ? "" : top_dir()."/project/").'#'.$platform_sym,$platform_name,
+                                                       $r.=a_href((!$platform_selected ? "" : "/project/").'#'.$platform_sym,$platform_name,
                                                                        "attr"=>($chosen
                                                                                        ? 'style="text-decoration: underline; font-weight: bold;"'
                                                                                        : 'style="text-decoration: inherit; /* revoke underline */"'));