diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-10 22:39:20 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-10 22:39:20 +0000 |
commit | 2754d8bdcb9d1e85f569490f21ff931c65d5949a (patch) | |
tree | 4e889b61870a2de6c706fadc6f94746aa5805e0f /LedgerSMB/DBObject/Company.pm | |
parent | 45c87fceda2ca23805e76daa329764f2fe9804da (diff) |
Minor Customer/Vendor fixes
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1969 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/DBObject/Company.pm')
-rw-r--r-- | LedgerSMB/DBObject/Company.pm | 10 |
1 files changed, 10 insertions, 0 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 @_; |