X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f5c454e3855012bdb1928f3e4c4964403d4d8163..6ea1dd9bb2e7965da7d0ef66a0b464267ce41a9b:/SL/AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index acae102c3..7306640b8 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -829,10 +829,10 @@ sub save_preferences {
 
   my ($self, $form) = @_;
 
-  my $employee = SL::DB::Manager::Employee->find_by(login => $form->{login});
+  my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
   $employee->update_attributes(name => $form->{name});
 
-  my $user = SL::DB::Manager::AuthUser->find_by(login => $form->{login});
+  my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login});
   $user->update_attributes(
     config_values => {
       %{ $user->config_values },
@@ -1181,7 +1181,7 @@ sub sum_with_unit {
 
   $main::lxdebug->leave_sub();
 
-  return wantarray ? ($sum, $base_unit) : $sum;
+  return $sum;
 }
 
 sub add_unit {