Imagemaps generiert.

[mfinanz.git] / SL / Layout / MenuLeft.pm

diff --git a/SL/Layout/MenuLeft.pm b/SL/Layout/MenuLeft.pm
index 14ee2eac943febef4365ce27be0b5ba15a164c48..3c869bbb11513126ff580bdb84170f4877d2a8e6 100644 (file)
--- a/SL/Layout/MenuLeft.pm
+++ b/SL/Layout/MenuLeft.pm
@@ -50,7 +50,7 @@ sub section_menu {
     my $menuitem   = $menu->{$item};
     my $olabel     = apply { s/.*--// } $item;
     my $ml         = apply { s/--.*// } $item;
     my $menuitem   = $menu->{$item};
     my $olabel     = apply { s/.*--// } $item;
     my $ml         = apply { s/--.*// } $item;

-    my $icon_class = apply { $_ =lc $_; s/[^a-z0-9_-]/-/g } $item;
+    my $icon_class = apply { $_ = lc $_; s/[^a-z0-9_-]/-/g } $menuitem->{ICON};

     my $spacer     = "s" . (0 + $item =~ s/--/--/g);
 
     next if $level && $item ne "$level--$olabel";
     my $spacer     = "s" . (0 + $item =~ s/--/--/g);
 
     next if $level && $item ne "$level--$olabel";