{
my($class,$ListItem)=@_;
- print "<h1>".$ListItem->{"name"}."</h1>\n";
+ print "<h1>".$W->{"title"}."</h1>\n";
print $ListItem->{"description"};
print "<hr />\n";
my @table=(
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; }