Update title

diff --git a/Project.pm b/Project.pm
index d5473fd..85a1fa8 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -38,7 +38,7 @@ sub print_project ($)
 {
 my($class,$ListItem)=@_;
 
-       print "<h1>".$ListItem->{"name"}."</h1>\n";
+       print "<h1>".$W->{"title"}."</h1>\n";
        print $ListItem->{"description"};
        print "<hr />\n";
        my @table=(
@@ -184,7 +184,7 @@ my($class,%args)=@_;
        my $name=$ListItem->{"name"};
        $name=~s#<a\s[^>]*>([^<]*)</a>#$1#g;
        my $W=$class->init(
-                       "title"=>$name,
+                       "title"=>$name.": ".$ListItem->{"summary"},
                        %args,
                        "head_css"=>($args{"head_css"} || "")."
 table.print_project td { vertical-align: top; }