use List::Util qw(max);
use URI;
-sub new {
- my ($class, @slurp) = @_;
-
- my $self = $class->SUPER::new(@slurp);
-
- $self->add_sub_layouts([
- SL::Layout::None->new,
- ]);
-
- $self;
+sub init_sub_layouts {
+ [ SL::Layout::None->new ]
}
sub pre_content {
"</div>\n";
}
+sub stylesheets {
+ $_[0]->add_stylesheets(qw(
+ dhtmlsuite/menu-item.css
+ dhtmlsuite/menu-bar.css
+ ));
+ $_[0]->SUPER::stylesheets;
+}
+
sub display {
my ($self) = @_;
my $form = $main::form;
$callback = URI->new($callback)->rel($callback) if $callback;
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
- $form->parse_html_template("menu/menunew", {
-# $self->render("menu/menunew", { no_menu => 1, no_output => 1 }, # buggy, no idea why
+ $self->render("menu/menunew", { partial => 1, no_output => 1 },
force_ul_width => 1,
date => $self->clock_line,
menu_items => $self->acc_menu,
callback => $callback,
- });
+ );
}
sub clock_line {