diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-09-12 23:36:59 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-09-12 23:36:59 +0000 |
| commit | 4dc9e97ad999bb6ea4fe5171be988ee8e6c156dc (patch) | |
| tree | df614c362f79409c7bbd98ece957f2846a2bface /LedgerSMB | |
| parent | 8cf90bc4e677ea04ea73b718b64d59f83c2ec01c (diff) | |
Adding drop down box to set primary entity class for companies.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2323 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/DBObject/Company.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm index a0cce914..4d11d858 100644 --- a/LedgerSMB/DBObject/Company.pm +++ b/LedgerSMB/DBObject/Company.pm @@ -137,6 +137,9 @@ $self->{cash_acc_list} = qw(list of cash accounts) sub get_metadata { my $self = shift @_; + @{$self->{entity_classes}} = + $self->exec_method(funcname => 'entity__list_classes'); + @{$self->{ar_ap_acc_list}} = $self->exec_method(funcname => 'chart_get_ar_ap'); |