Macro expansion is handled differently and %% is converted into %,

even in perl expressions unfortunately.  Hence, I doubled all
occurrences of % so it should work with newer versions of WML as well.

diff --git a/Styles/LUGO.style b/Styles/LUGO.style
index ad86bae..fea7f48 100644 (file)
--- a/Styles/LUGO.style
+++ b/Styles/LUGO.style
@@ -62,19 +62,19 @@
            #$color="757575";
            $color="68A4C8";
            if ("<get-var WML_SRC_BASENAME>" eq "index") {
-               printf "<th align=\"center\" width=\"%d%s\" bgcolor=\"#%s\"><font face=\"Helvetica,Arial\">%s</font></th>",
-                      100/($#dirs+1), "%", $color, $rubrik;
+               printf "<th align=\"center\" width=\"%%d%%%%\" bgcolor=\"#%%s\"><font face=\"Helvetica,Arial\">%%s</font></th>",
+                      100/($#dirs+1), $color, $rubrik;
            } else {
-               printf "<th align=\"center\" width=\"%d%s\" bgcolor=\"#%s\"><a href=\"%s%s/\">"
-                     ."<font face=\"Helvetica,Arial\">%s</font></a></th>",
-                       100/($#dirs+1), "%", $color, $root_prefix, $rubrik, $rubrik;
+               printf "<th align=\"center\" width=\"%%d%%%%\" bgcolor=\"#%%s\"><a href=\"%%s%%s/\">"
+                     ."<font face=\"Helvetica,Arial\">%%s</font></a></th>",
+                       100/($#dirs+1), $color, $root_prefix, $rubrik, $rubrik;
            }
        } else {
            #$color="B0B0B0";
            $color="80CCF8";
-           printf "<th align=\"center\" width=\"%d%s\" bgcolor=\"#%s\"><a href=\"%s%s/\">"
-                 ."<font face=\"Helvetica,Arial\">%s</font></a></th>",
-                 100/($#dirs+1), "%", $color, $root_prefix, $rubrik, $rubrik;
+           printf "<th align=\"center\" width=\"%%d%%%%\" bgcolor=\"#%%s\"><a href=\"%%s%%s/\">"
+                 ."<font face=\"Helvetica,Arial\">%%s</font></a></th>",
+                 100/($#dirs+1), $color, $root_prefix, $rubrik, $rubrik;
        }
     }
 :>