X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/343d80b67b9683cd8a585e85d95f99d1163ce146..4d1071ce7d8250e1545270200c4d0d8152b79a1d:/scripts/image_maps.pl

diff --git a/scripts/image_maps.pl b/scripts/image_maps.pl
index 032948194..f025340ab 100755
--- a/scripts/image_maps.pl
+++ b/scripts/image_maps.pl
@@ -83,10 +83,10 @@ for (@gd_images) {
     my $name = fileparse($_->{filename}, ".png");
 
     # the full grammar for valid css class names is completely bonkers (to put it mildly).
-    # so instead of trying to punch filenames into those class names, we'll just reduce them to a nice minimal set of
-    # a-z _ -
+    # so instead of trying to punch filenames into those class names, we'll
+    # just reduce them to a nice minimal set of lower case /[a-z0-9_-]*/
     $name = lc $name;
-    $name =~ s/[^a-z_-]/-/g;
+    $name =~ s/[^a-z0-9_-]/-/g;
     print $file ".$class_for_map.$name { background-position: -$_->{h_offset}px 0px; }\n";
   }
 }