descriptions updated

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

diff --git a/project/Index.html.pl b/project/Index.html.pl
index eb645d8..33bc3a2 100755 (executable)
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -35,6 +35,7 @@ Wrequire 'project::Platform';
 My::Web->init(
                "__PACKAGE__"=>__PACKAGE__,
                "title"=>'Project List',
+               "section"=>"Projects",
                );
 My::Web->heading();
 
@@ -50,12 +51,14 @@ print <<"HERE";
 HERE
 
 print '<table border="1" align="center" style="border-collapse: collapse; border-style: solid;">'."\n";
-       my @platforms=@project::Platform::platforms;
-       while (@platforms) {
-               my $platform_sym =shift @platforms;
-               my $platform_name=shift @platforms;
-               print '<td style="padding: 5px;">'.a_href('#'.$platform_sym,$platform_name)."</td>\n";
-               }
+       print '<tr>'."\n";
+               my @platforms=@project::Platform::platforms;
+               while (@platforms) {
+                       my $platform_sym =shift @platforms;
+                       my $platform_name=shift @platforms;
+                       print '<td style="padding: 5px;">'.a_href('#'.$platform_sym,$platform_name)."</td>\n";
+                       }
+       print '</tr>'."\n";
 print '</table>'."\n";
 print vskip "1ex";