X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Project.pm;h=2088d99324e57fcd6b389b72155733697bf3a9d5;hp=a2bc9c4cbe00e162f5ae680e381da185187225de;hb=c7ef95c38cb7fea2fa7112560ffdb69b79b7ffda;hpb=ac37b1cf8ea542dfbc3ace13db3010111b920090
diff --git a/Project.pm b/Project.pm
index a2bc9c4..2088d99 100644
--- a/Project.pm
+++ b/Project.pm
@@ -39,6 +39,7 @@ sub print_project
my($class,$ListItem,%args)=@_;
print "
".$W->{"title"}."
\n";
+ do { print $_ if $_; } for ($args{"project_text_after_title"});
print $ListItem->{"description"};
print "
\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; }