update, MSIE bug compatibility

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

diff --git a/project/Index.html.pl b/project/Index.html.pl
index b48fd54..bee2eae 100755 (executable)
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -34,6 +34,8 @@ My::Web->init(
                "__PACKAGE__"=>__PACKAGE__,
                "title"=>'Project List',
                "section"=>"Projects",
+               "rel_up"=>top_dir(),
+               "rel_start"=>top_dir(),
                );
 My::Web->heading();
 
@@ -71,10 +73,20 @@ while (@platforms) {
                        (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/",$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;
+                       }
                }
        }