+icons

[www.jankratochvil.net.git] / project / Index.html.pl

diff --git a/project/Index.html.pl b/project/Index.html.pl
index 6c82b46..d8f527b 100755 (executable)
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -73,10 +73,29 @@ while (@platforms) {
                        (lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
                        } map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
        for my $project (@projects) {
+               if ($item{$project}{"icon"}) {
+                       print <<"HERE";
+<table border="0" width="100%">
+       <col width="1*" />
+       <col width="0*" />
+       <tr>
+               <td align="left">
+HERE
+                       }
                print "<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
                print "<blockquote>\n";
                        print $item{$project}{"description"};
                print "</blockquote>\n";
+               if ($item{$project}{"icon"}) {
+                       print <<"HERE";
+               </td>
+               <td align="right">@{[
+                               img "/project/$project/".$item{$project}{"icon"},$item{$project}{"name"}." Icon","a_href"=>"/project/$project/"
+                               ]}</td>
+       </tr>
+</table>
+HERE
+                       }
                }
        }