diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-09 23:15:56 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-09 23:15:56 +0000 |
commit | 8327a4959a98ad10eb38974aaaddaa1ff7624bda (patch) | |
tree | 28239b730ae8ccac3c79451a6496d6f82371c1cc /LedgerSMB/Employee.pm | |
parent | 2994f499bc287114d6ad004e5335c4c5c9d337d9 (diff) |
Fixing numerous issues with new orm code
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@871 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Employee.pm')
-rw-r--r-- | LedgerSMB/Employee.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/LedgerSMB/Employee.pm b/LedgerSMB/Employee.pm index a299ea86..9ddbbc8f 100644 --- a/LedgerSMB/Employee.pm +++ b/LedgerSMB/Employee.pm @@ -33,33 +33,34 @@ use LedgerSMB; use LedgerSMB::DBObject; our $VERSION = '1.0.0'; -@ISA = (LedgerSMB::DBObject); +our @ISA = qw(LedgerSMB::DBObject); sub AUTOLOAD { + my $self = shift; my $procname = "employee_$LedgerSMB::Employee::Autoload"; - $self->exec_method($procname); + $self->exec_method($procname, @_); } sub save { - my $hashref = shift ($self->exec_method("employee_save")); + my $self = shift; + my $hashref = shift @{$self->exec_method("employee_save")}; $self->merge($hashref, 'id'); } sub get { - my $hashref = shift ($self->exec_method("employee_get")); - $self->merge($hashref, keys $hashref); -} - -sub delete { - $self->exec_method("employee_delete"); + my $self = shift; + my $hashref = shift @{$self->exec_method("employee_get")}; + $self->merge($hashref, keys %{$hashref}); } sub list_managers { + my $self = shift; $self->{manager_list} = $self->exec_method("employee_list_managers"); } sub search { + my $self = shift; $self->{search_results} = $self->exec_method("employee_search"); } |