. HTML-Tabellen korrigieren (wml::std::box) mit fix-Target

[infodrom.org/www.infodrom.org] / src / index-tools.pl

diff --git a/src/index-tools.pl b/src/index-tools.pl
index 345935d..bfb4642 100644 (file)
--- a/src/index-tools.pl
+++ b/src/index-tools.pl
@@ -1,5 +1,7 @@
 <:
 
+$fsize = " size=-1";
+
 # Hauptmenü generieren
 
 sub main_menu {
@@ -14,12 +16,12 @@ sub main_menu {
                printf "<th align=center width=%d%% bgcolor=#%s>", $width, $color;
                print "<font size-=5 color=\"#<menu-bgcolor>\"> · </font>"
                    if ($rubrik ne $dirs[0]);
-               printf "<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\">%s</font></th>\n", $rubrik;
+               printf "<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\">%s</font></th>\n", $rubrik;
            } else {
                printf "<th align=center width=%d%% bgcolor=#%s>", $width, $color;
                print "<font size-=5 color=\"#<menu-bgcolor>\"> · </font>"
                    if ($rubrik ne $dirs[0]);
-               printf "<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
+               printf "<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
                        $root_prefix, $rubrik, $rubrik;
            }
        } else {
@@ -27,7 +29,7 @@ sub main_menu {
            printf "<th align=center width=%d%% bgcolor=#%s>", $width, $color;
            print "<font size-=5 color=\"#<menu-bgcolor>\"> · </font>"
                if ($rubrik ne $dirs[0]);
-           printf "<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
+           printf "<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
                $root_prefix, $rubrik, $rubrik;
        }
     }
@@ -77,7 +79,7 @@ sub specials_menu
        while ($i <= $#keys) {
            print "<tr>" if (! ($i % $tabwidth));
 
-           $foo = sprintf ("<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=\"%s\">%s</a></font>"
+           $foo = sprintf ("<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=\"%s\">%s</a></font>"
                            , $keys[$i], $elems{$keys[$i]});
            printf "<td align=center width=%d%% bgcolor=#<menu-bgcolor>>%s\n",
                $width, $foo;