X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Project.pm;h=3d836d8b95098eb82a6804cc062537a29eb43992;hp=f91b5bc40bfa20ebbbd04a740db791b2c7b85701;hb=13f712387068dca5929601070028b158d099a79d;hpb=e8ed9ce95d907c2d341626ac64fcec7dd7b3c1a3

diff --git a/Project.pm b/Project.pm
index f91b5bc..3d836d8 100644
--- a/Project.pm
+++ b/Project.pm
@@ -34,13 +34,15 @@ sub ENTRIES     { return top_dir_disk()."/project/CVS/Entries"; }
 sub ENTRIES_LOG { return top_dir_disk()."/project/CVS/Entries.Log"; }
 
 
-sub print_project ($)
+sub print_project
 {
-my($class,$ListItem)=@_;
+my($class,$ListItem,%args)=@_;
 
 	print "<h1>".$W->{"title"}."</h1>\n";
 	print $ListItem->{"description"};
 	print "<hr />\n";
+	print $args{"before_project_data"} || "";
+	return if $args{"no_project_data"};
 	my @table=(
 		{"key"=>"summary","text"=>"Summary"},
 		{"key"=>"license","text"=>"License","format"=>sub ($) {
@@ -203,7 +205,7 @@ table.print_project td { vertical-align: top; }
 			);
 	$class->heading();
 	print $class->platforms($ListItem->{"platform"});
-	$class->print_project({ %$ListItem });
+	$class->print_project({ %$ListItem },%args);
 	return $W;
 }