diff options
Diffstat (limited to 'LedgerSMB/Employee.pm')
-rw-r--r-- | LedgerSMB/Employee.pm | 14 |
1 files changed, 2 insertions, 12 deletions
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; |