diff options
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r-- | LedgerSMB/DBObject/Employee.pm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Employee.pm b/LedgerSMB/DBObject/Employee.pm index ddc453a6..af08ed61 100644 --- a/LedgerSMB/DBObject/Employee.pm +++ b/LedgerSMB/DBObject/Employee.pm @@ -1,6 +1,6 @@ package LedgerSMB::DBObject::Employee; -use base qw(LedgerSMB::DBObject::Company); +use base qw(LedgerSMB::DBObject); use strict; my $ENTITY_CLASS = 3; @@ -9,5 +9,25 @@ sub set_entity_class { my $self = shift @_; $self->{entity_class} = $ENTITY_CLASS; } + +sub save { + my ($self) = @_; + $self->set_entity_class(); + $self->{entity_id} = $self->exec_method(funcname => 'person_save'); + $self->exec_method(funcname => 'employee__save'); + $self->{dbh}->commit; +} + +sub save_location { +} + +sub save_contact { +} + +sub save_bank_account { +} + +sub save_note { +} 1; |