diff options
Diffstat (limited to 'LedgerSMB/Employee.pm')
| -rw-r--r-- | LedgerSMB/Employee.pm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/LedgerSMB/Employee.pm b/LedgerSMB/Employee.pm index 007b44d5..1165c441 100644 --- a/LedgerSMB/Employee.pm +++ b/LedgerSMB/Employee.pm @@ -11,9 +11,6 @@ This module creates object instances based on LedgerSMB's in-database ORM. The following method is static: =item new ($LedgerSMB object); -=item merge ($hashref, @attrs) -copies @attrs from $hashref to $self. - The following methods are passed through to stored procedures via Autoload. =item save =item get @@ -34,7 +31,7 @@ your software. package LedgerSMB::Employee; use LedgerSMB; use LedgerSMB::DBObject; -@ISA = (LedgerSMB, LedgerSMB::DBObject); +@ISA = (LedgerSMB::DBObject); sub AUTOLOAD { my $procname = "employee_$LedgerSMB::Employee::Autoload"; @@ -53,14 +50,6 @@ sub new { } -sub merge { - my $self = shift @_; - my $src = shift @_; - for $arg (@_){ - $self->{$arg} = $src->{$arg}; - } -} - sub save { my $hashref = shift ($self->exec_method("employee_save")); $self->merge($hashref, 'id'); |