diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/menu.pl | 43 |
1 files changed, 32 insertions, 11 deletions
diff --git a/scripts/menu.pl b/scripts/menu.pl index 51ec1551..af5a428a 100644 --- a/scripts/menu.pl +++ b/scripts/menu.pl @@ -13,6 +13,12 @@ use LedgerSMB::Template; use strict; sub __default { + my ($request) = @_; + if ($request->{menubar}){ + # todo + } else { + expanding_menu($request); + } } sub root_doc { @@ -27,18 +33,33 @@ sub root_doc { locale => $request->{_locale}, path => 'UI', template => 'frameset', - format => 'HTML' - ); - } else { - # TODO: Create Lynx Initial Menu - } - $template->render($request); -} + format => 'HTML' + ); + } else { + # TODO: Create Lynx Initial Menu + } + $template->render($request); + } + + sub expanding_menu { + my ($request) = @_; + if ($request->{'open'} !~ s/:$request->{id}:/:/){ + $request->{'open'} .= ":$request->{id}:"; + } + + # The above system can lead to extra colons. + $request->{'open'} =~ s/:+/:/g; + + + + my $menu = LedgerSMB::DBObject::Menu->new({base => $request}); + $menu->generate(); + for my $item (@{$menu->{menu_items}}){ + if ($request->{'open'} =~ /:$item->{id}:/ ){ + $item->{'open'} = 'true'; + } + } -sub expanding_menu { - my ($request) = @_; - my $menu = LedgerSMB::DBObject::Menu->new({base => $request}); - $menu->generate(); my $template = LedgerSMB::Template->new( user => $request->{_user}, locale => $request->{_locale}, |