X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5202b3e71b817c6a78845cd4c27773760ff408b6..96ebad9d2e62a0aecef0c4436a9b5aa7d50f28e1:/SL/AM.pm diff --git a/SL/AM.pm b/SL/AM.pm index 57e6b445a..9780078f5 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -556,7 +556,7 @@ sub save_preferences { my ($self, $form) = @_; - my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login}); + my $employee = SL::DB::Manager::Employee->current; $employee->update_attributes(name => $form->{name}); my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login});