diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/AM.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 95b2a075..b3e94bbb 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1311,9 +1311,23 @@ sub save_preferences { # connect to database my $dbh = $form->{dbh}; + + # get username, is same as requested? my @queryargs; - # update name my $query = qq| + SELECT login + FROM employee + WHERE login = ?|; + @queryargs = ($form->{login}); + my $sth = $dbh->prepare($query); + $sth->execute(@queryargs) || $form->dberror($query); + my ($dbusername) = $sth->fetchrow_array; + $sth->finish; + + return 0 if ($dbusername ne $form->{login}); + + # update name + $query = qq| UPDATE employee SET name = ?, role = ? |