From: short <>
Date: Wed, 8 Oct 2003 09:05:54 +0000 (+0000)
Subject: Update title
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=afc4e4377e1952a0eae68d1b934de70095c11bc5

Update title
---

diff --git a/Project.pm b/Project.pm
index d5473fd..85a1fa8 100644
--- 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; }