diff options
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r-- | LedgerSMB/DBObject/Company.pm | 10 | ||||
-rw-r--r-- | LedgerSMB/DBObject/Menu.pm | 1 |
2 files changed, 10 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm index ed94b015..08e0ebc8 100644 --- a/LedgerSMB/DBObject/Company.pm +++ b/LedgerSMB/DBObject/Company.pm @@ -33,6 +33,9 @@ sub get_metadata { @{$self->{location_class_list}} = $self->exec_method(funcname => 'location_list_class'); + @{$self->{business_types}} = + $self->exec_method(funcname => 'business_type__list'); + @{$self->{country_list}} = $self->exec_method(funcname => 'location_list_country'); @@ -58,6 +61,13 @@ sub save_notes { $self->{dbh}->commit; } +sub search { + my ($self) = @_; + @{$self->{search_results}} = + $self->exec_method(funcname => 'company__search'); + return @{$self->{search_results}}; +} + sub get { my $self = shift @_; diff --git a/LedgerSMB/DBObject/Menu.pm b/LedgerSMB/DBObject/Menu.pm index ca3fae39..62de68ba 100644 --- a/LedgerSMB/DBObject/Menu.pm +++ b/LedgerSMB/DBObject/Menu.pm @@ -71,7 +71,6 @@ sub generate_section { sub __generate { my ($self) = @_; - $self->debug({file => '/tmp/menu'}); my @args; shift @{$self->{menu_items}}; |