diff options
Diffstat (limited to 'LedgerSMB/AM.pm')
| -rwxr-xr-x | LedgerSMB/AM.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index b3e94bbb..4ca04ac5 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1329,11 +1329,10 @@ sub save_preferences { # update name $query = qq| UPDATE employee - SET name = ?, - role = ? + SET name = ? WHERE login = ?|; - @queryargs = ($form->{name}, $form->{role}, $form->{login}); + @queryargs = ($form->{name}, $form->{login}); $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query); # get default currency @@ -1351,6 +1350,11 @@ sub save_preferences { my $myconfig = LedgerSMB::User->new($form->{login}); + map {$myconfig->{$_} = $form->{$_} if exists $form->{$_}} + qw(name email dateformat signature numberformat vclimit tel fax + company menuwidth countrycode address timeout stylesheet + printer password); + foreach my $item (keys %$form) { $myconfig->{$item} = $form->{$item}; } |