+W argument "project_text_after_title".

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index a2bc9c4..dd17b23 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"} || "";