More postfactoring

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1901 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 13 insertions, 0 deletions

diff --git a/LedgerSMB/DBObject/Employee.pm b/LedgerSMB/DBObject/Employee.pm
new file mode 100644
index 00000000..ddc453a6
--- /dev/null
+++ b/LedgerSMB/DBObject/Employee.pm
@@ -0,0 +1,13 @@
+package LedgerSMB::DBObject::Employee;
+
+use base qw(LedgerSMB::DBObject::Company);
+use strict;
+
+my $ENTITY_CLASS = 3;
+
+sub set_entity_class {
+    my $self = shift @_;
+    $self->{entity_class} = $ENTITY_CLASS;
+}
+    
+1;