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/User.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/User.pm')
-rwxr-xr-x | LedgerSMB/User.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index ea41444c..2808d8c4 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -185,7 +185,7 @@ sub login { # no error check for employee table, ignore if it does not exist my $login = $self->{login}; $login =~ s/@.*//; - $query = qq|SELECT id FROM employee WHERE login = ?|; + $query = qq|SELECT id FROM employees WHERE login = ?|; $sth = $dbh->prepare($query); $sth->execute($login); @@ -198,7 +198,7 @@ sub login { \%myconfig, "employeenumber", $dbh); $query = qq| - INSERT INTO employee + INSERT INTO employees (login, employeenumber, name, workphone, role) VALUES (?, ?, ?, ?, ?)|; @@ -810,10 +810,10 @@ sub save_member { {AutoCommit => 0}) or $self->error($DBI::errstr); - # add login to employee table if it does not exist + # add login to employees table if it does not exist my $login = $self->{login}; $login =~ s/@.*//; - my $sth = $dbh->prepare("SELECT id FROM employee WHERE login = ?;"); + my $sth = $dbh->prepare("SELECT id FROM employees WHERE login = ?;"); $sth->execute($login); my ($id) = $sth->fetchrow_array; @@ -822,7 +822,7 @@ sub save_member { my @values; if ($id) { - $query = qq|UPDATE employee SET + $query = qq|UPDATE employees SET role = ?, email = ?, name = ? @@ -835,7 +835,7 @@ sub save_member { my ($employeenumber) = Form::update_defaults( "", \%$self, "employeenumber", $dbh); $query = qq| - INSERT INTO employee + INSERT INTO employees (login, employeenumber, name, workphone, role, email, sales) VALUES (?, ?, ?, ?, ?, ?, '1')|; @@ -863,7 +863,7 @@ sub delete_login { my $login = $form->{login}; $login =~ s/@.*//; - my $query = qq|SELECT id FROM employee WHERE login = ?|; + my $query = qq|SELECT id FROM employees WHERE login = ?|; my $sth = $dbh->prepare($query); $sth->execute($login) || $form->dberror(__FILE__.':'.__LINE__.': '.$query); @@ -871,7 +871,7 @@ sub delete_login { $sth->finish; my $query = qq| - UPDATE employee + UPDATE employees SET login = NULL, enddate = current_date WHERE login = ?|; |