diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rw-r--r-- | LedgerSMB/Form.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 9e7c7748..7c3a6d65 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -1616,8 +1616,8 @@ sub get_employee { my $query = qq| SELECT name, id FROM entity WHERE id IN (select entity_id - FROM employee - WHERE login = ?)|; + FROM users + WHERE username = ?)|; my $sth = $self->{dbh}->prepare($query); $sth->execute($login); @@ -1721,9 +1721,9 @@ sub all_vc { my $sth; if ($vc eq 'customer'){ - $self->{vc_class} = 2; - } else { $self->{vc_class} = 1; + } else { + $self->{vc_class} = 2; $vc = 'vendor'; } my $query = qq|SELECT count(*) FROM entity_credit_account where entity_class = ?|; |