X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/68dbf4a4cb26b9554a23f076438109d7fc2d861c..8f176d2b196eb63579a24587ca00ed513324dbc0:/SL/Layout/MenuLeft.pm?ds=inline diff --git a/SL/Layout/MenuLeft.pm b/SL/Layout/MenuLeft.pm index 14ee2eac9..3c869bbb1 100644 --- 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 $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";