diff options
Diffstat (limited to 'LedgerSMB/HR.pm')
-rwxr-xr-x | LedgerSMB/HR.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/HR.pm b/LedgerSMB/HR.pm index a4405892..16c1dab6 100755 --- a/LedgerSMB/HR.pm +++ b/LedgerSMB/HR.pm @@ -37,7 +37,7 @@ package HR; sub get_employee { my ($self, $myconfig, $form) = @_; - my $dbh = $form->dbconnect($myconfig); + my $dbh = $form->{dbh}; my $query; my $sth; @@ -173,7 +173,7 @@ sub delete_employee { my ($self, $myconfig, $form) = @_; # connect to database - my $dbh = $form->dbconnect_noauto($myconfig); + my $dbh = $form->{dbh}; # delete employee |