From d63d2487d738b5273f0bb00d9caf8dce591ac91e Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 25 Nov 2007 19:59:02 +0000 Subject: More postfactoring git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1901 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/DBObject/Employee.pm | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 LedgerSMB/DBObject/Employee.pm (limited to 'LedgerSMB/DBObject/Employee.pm') 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; -- cgit v1.2.3