summaryrefslogtreecommitdiff
path: root/scripts/menu.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-09 02:21:21 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-09 02:21:21 +0000
commitbdff0866f37cded4d1aaabd214ee22209864b0f6 (patch)
tree41a7e40fd585a8fd7bc044226d551c55348ce303 /scripts/menu.pl
parentae39575800beeff17d7b4ef5a188df850939cd82 (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/menu.pl')
-rw-r--r--scripts/menu.pl8
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 {