X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1e542cc70c846448b75be1f36becd61601a4b3d3..8f176d2b196eb63579a24587ca00ed513324dbc0:/SL/Layout/MenuLeft.pm

diff --git a/SL/Layout/MenuLeft.pm b/SL/Layout/MenuLeft.pm
index f2e8a053f..3c869bbb1 100644
--- a/SL/Layout/MenuLeft.pm
+++ b/SL/Layout/MenuLeft.pm
@@ -13,7 +13,6 @@ sub stylesheets {
 
 sub javascripts_inline {
   my $self = shift;
-  $self->SUPER::javascripts_inline;
   my $sections = [ section_menu($self->menu) ];
   $self->presenter->render('menu/menu',
     sections  => $sections,
@@ -51,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";