diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-08 18:28:59 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-08 18:28:59 +0000 |
commit | 3dd38f98466dedb6710ab5891e75487b195048b9 (patch) | |
tree | 95ffb52f70b851b5c4a82cb063adb3b2e501ebd8 /LedgerSMB | |
parent | 36dff6b4f7aa79833d3b21d7e60f504550f0d39b (diff) |
renaming employee to employees and dropping insert tracking rule
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@864 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r-- | LedgerSMB/DBObject.pm | 12 | ||||
-rw-r--r-- | LedgerSMB/Employee.pm | 14 |
2 files changed, 14 insertions, 12 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 98ad08ad..071acb68 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -31,6 +31,18 @@ use warnings; @ISA = (LedgerSMB); +sub new { + my $lsmb = shift @_; + if (! $lsmb->isa(LedgerSMB)){ + $self->error("Constructor called without LedgerSMB object arg"); + my $self = {}; + for $attr (keys $lsmb){ + $self->{$attr} = $lsmb->{$attr}; + } + bless $self; +} + + sub exec_method { my ($self) = shift @_; my ($funcname) = shift @_; diff --git a/LedgerSMB/Employee.pm b/LedgerSMB/Employee.pm index 1165c441..9552a8da 100644 --- a/LedgerSMB/Employee.pm +++ b/LedgerSMB/Employee.pm @@ -38,18 +38,6 @@ sub AUTOLOAD { $self->exec_method($procname); } -sub new { - my $lsmb = shift @_; - if (! $lsmb->isa(LedgerSMB)){ - $self->error("Employee called without LedgerSMB object arg"); - my $self = {}; - for $attr (keys $lsmb){ - $self->{$attr} = $lsmb->{$attr}; - } - bless $self; -} - - sub save { my $hashref = shift ($self->exec_method("employee_save")); $self->merge($hashref, 'id'); @@ -71,3 +59,5 @@ sub list_managers { sub search { $self->{search_results} = $self->exec_method("employee_search"); } + +1; |