From 4dc9e97ad999bb6ea4fe5171be988ee8e6c156dc Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 12 Sep 2008 23:36:59 +0000
Subject: 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
---
 LedgerSMB/DBObject/Company.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'LedgerSMB')

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');
 
-- 
cgit v1.2.3