summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r--LedgerSMB/DBObject/Menu.pm33
1 files changed, 29 insertions, 4 deletions
diff --git a/LedgerSMB/DBObject/Menu.pm b/LedgerSMB/DBObject/Menu.pm
index 733d8f91..f92c02cb 100644
--- a/LedgerSMB/DBObject/Menu.pm
+++ b/LedgerSMB/DBObject/Menu.pm
@@ -40,11 +40,39 @@ th result set, This function does not return an entry for the top-level menu.
sub generate {
my ($self) = shift @_;
- my @args;
@{$self->{menu_items}} = $self->exec_method(funcname => 'menu_generate');
+ $self->__generate;
+
+ return @{$self->{menu_items}};
+}
+
+=over
+
+=item Menu::generate_secton($object)
+
+This class acts like Menu::Generate except it returns only a cross-section of
+the menu. Basically it returns all nodes which are direct children below
+$object->{parent_id}.
+
+=cut
+
+sub generate_section {
+ my ($self) = shift @_;
+
+ @{$self->{menu_items}} = $self->exec_method(funcname => 'menu_children');
+ $self->__generate;
+
+ return @{$self->{menu_items}};
+}
+
+# Private method which contains logic common to the full menu and section logic
+
+sub __generate {
+ my ($self) = @_;
$self->debug({file => '/tmp/menu'});
+ my @args;
shift @{$self->{menu_items}};
@@ -61,6 +89,3 @@ sub generate {
}
}
}
- return @{$self->{menu_items}};
-}
-