&top_dir: +# FIXME: $in may not be defined here!

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index a2bc9c4..2088d99 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -39,6 +39,7 @@ sub print_project
 my($class,$ListItem,%args)=@_;
 
        print "<h1>".$W->{"title"}."</h1>\n";
+       do { print $_ if $_; } for ($args{"project_text_after_title"});
        print $ListItem->{"description"};
        print "<hr />\n";
        print $args{"before_project_data"} || "";
@@ -196,7 +197,7 @@ my($class,%args)=@_;
                        map(("rel_$_"=>top_dir('/project/Rel.pl?rel='.$_.'&project='.($args{"__PACKAGE__"}=~/^.*::([^:]+)::[^:]+$/)[0])),
                                        qw(prev next)),
                        "rel_up"=>top_dir('/project/'),
-                       "rel_start"=>top_dir(),
+#                      "rel_start"=>top_dir(), # TODO:homepage
                        %args,
                        "head_css"=>($args{"head_css"} || "")."
 table.print_project td { vertical-align: top; }