X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=Project.pm;h=2088d99324e57fcd6b389b72155733697bf3a9d5;hb=ac44c8ef5dd4c1a3ac5dc503c3b3236f71cd01bb;hp=a2bc9c4cbe00e162f5ae680e381da185187225de;hpb=ac37b1cf8ea542dfbc3ace13db3010111b920090;p=MyWeb.git

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 "<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; }