sub javascripts_inline {
my $self = shift;
+ $self->SUPER::javascripts_inline;
my $sections = [ section_menu($self->menu) ];
- $self->render('menu/menu', { output => 0 },
+ $self->presenter->render('menu/menu',
sections => $sections,
)
}
my $menuitem = $menu->{$item};
my $olabel = apply { s/.*--// } $item;
my $ml = apply { s/--.*// } $item;
- my $icon_class = apply { y/ /-/ } $item;
+ my $icon_class = apply { $_ =lc $_; s/[^a-z0-9_-]/-/g } $item;
my $spacer = "s" . (0 + $item =~ s/--/--/g);
next if $level && $item ne "$level--$olabel";