diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-08 19:18:07 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-08 19:18:07 +0000 |
commit | 91c7ac3db95a85457522e26eb70ffd1e75ec8c16 (patch) | |
tree | 172a5fc207f94213a75e30b6bbd7617deabdbfea /LedgerSMB/HR.pm | |
parent | 240c36fb8f941248bec8c754dbdf3d61b9e7f6ae (diff) |
Moved other .pm's from 'employee' to 'employees'
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@866 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/HR.pm')
-rwxr-xr-x | LedgerSMB/HR.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/LedgerSMB/HR.pm b/LedgerSMB/HR.pm index 186ac752..6b6b6eff 100755 --- a/LedgerSMB/HR.pm +++ b/LedgerSMB/HR.pm @@ -45,7 +45,7 @@ sub get_employee { my $notid = ""; if ($form->{id}) { - $query = qq|SELECT e.* FROM employee e WHERE e.id = ?|; + $query = qq|SELECT e.* FROM employees e WHERE e.id = ?|; $sth = $dbh->prepare($query); $sth->execute($form->{id}) || $form->dberror(__FILE__.':'.__LINE__.':'.$query); @@ -64,7 +64,7 @@ sub get_employee { # get manager $form->{managerid} *= 1; - $sth = $dbh->prepare("SELECT name FROM employee WHERE id = ?"); + $sth = $dbh->prepare("SELECT name FROM employees WHERE id = ?"); $sth->execute($form->{managerid}); ($form->{manager}) = $sth->fetchrow_array; @@ -110,10 +110,10 @@ sub save_employee { my $uid = localtime; $uid .= "$$"; - $query = qq|INSERT INTO employee (name) VALUES ('$uid')|; + $query = qq|INSERT INTO employees (name) VALUES ('$uid')|; $dbh->do($query) || $form->dberror(__FILE__.':'.__LINE__.':'.$query); - $query = qq|SELECT id FROM employee WHERE name = '$uid'|; + $query = qq|SELECT id FROM employees WHERE name = '$uid'|; $sth = $dbh->prepare($query); $sth->execute || $form->dberror(__FILE__.':'.__LINE__.':'.$query); @@ -130,7 +130,7 @@ sub save_employee { if ! $form->{employeenumber}; $query = qq| - UPDATE employee + UPDATE employees SET employeenumber = ?, name = ?, address1 = ?, @@ -182,7 +182,7 @@ sub delete_employee { # delete employee my $query = qq| - DELETE FROM employee + DELETE FROM employees WHERE id = |.$dbh->quote($form->{id}); $dbh->do($query) || $form->dberror(__FILE__.':'.__LINE__.':'.$query); @@ -235,8 +235,8 @@ sub employees { my $query = qq| SELECT e.*, m.name AS manager - FROM employee e - LEFT JOIN employee m ON (m.id = e.managerid) + FROM employees e + LEFT JOIN employees m ON (m.id = e.managerid) WHERE $where ORDER BY $sortorder|; |