diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-09 02:21:21 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-09 02:21:21 +0000 |
| commit | bdff0866f37cded4d1aaabd214ee22209864b0f6 (patch) | |
| tree | 41a7e40fd585a8fd7bc044226d551c55348ce303 /scripts | |
| parent | ae39575800beeff17d7b4ef5a188df850939cd82 (diff) | |
Moving menu over to new template and stored proc model. THe menu expansion/contraction doesn't quite work yet and there needs to be some additional help on the CSS/Javascript side of this.
Also, this makes a few changes to the lower-level Perl API. Classes calling LedgerSMB::call_procedure() directly may need some editing but I believe I got them all. These changes were necessary to accomodate zero-argument stored procedures.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1355 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/menu.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/menu.pl b/scripts/menu.pl index 6836c1b4..3b2748a1 100644 --- a/scripts/menu.pl +++ b/scripts/menu.pl @@ -34,9 +34,8 @@ sub display { sub expanding_menu { my ($request) = @_; - my $menu = new LedgerSMB::Menu( - {files => ['menu.ini'], user => $request->{_user}} - ); + my $menu = new LedgerSMB::Menu({base => $request}); + $menu->generate(); my $template = LedgerSMB::Template->new( user => $request->{_user}, locale => $request->{_locale}, @@ -45,10 +44,9 @@ sub expanding_menu { format => 'HTML', ); $request->{subs} = []; - _attach_references({source => $menu, dest => $request->{subs}, path => ""}); $menu->debug({file => '/tmp/debug-menu'}); $request->debug({file => '/tmp/debug'}); - $template->render($request); + $template->render($menu); } sub _attach_references { |