summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r--LedgerSMB/DBObject/Employee.pm22
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;