diff options
Diffstat (limited to 'LedgerSMB/User.pm')
-rw-r--r-- | LedgerSMB/User.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 5ef96a6a..b5b043d6 100644 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -264,7 +264,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 entity_id FROM employee WHERE login = ?|; $sth = $dbh->prepare($query); $sth->execute($login); @@ -1066,7 +1066,7 @@ sub delete_login { my $login = $form->{login}; $login =~ s/@.*//; - my $query = qq|SELECT id FROM employee WHERE login = ?|; + my $query = qq|SELECT entity_id FROM employee WHERE login = ?|; my $sth = $dbh->prepare($query); $sth->execute($login) || $form->dberror( __FILE__ . ':' . __LINE__ . ': ' . $query ); |