"__PACKAGE__"=>__PACKAGE__,
"title"=>'Project List',
"section"=>"Projects",
+ "rel_up"=>top_dir(),
+ "rel_start"=>top_dir(),
);
My::Web->heading();
(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
} map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
for my $project (@projects) {
- print "<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
- print "<blockquote>\n";
- print $item{$project}{"description"};
- print "</blockquote>\n";
+ my $t="";
+
+ $t.="<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
+ $t.="<blockquote>\n";
+ $t.=$item{$project}{"description"};
+ $t.="</blockquote>\n";
+
+ if ($item{$project}{"icon"}) {
+ print rightimg $t,
+ "/project/$project/".$item{$project}{"icon"},$item{$project}{"name"}." Icon","a_href"=>"/project/$project/";
+ }
+ else {
+ print $t;
+ }
}
}