X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAM.pm;h=bf5c97d0ce91fd5258d0660cfac9c8bc2c9a97c4;hb=e81efe40ef7fa9dbf4f5785f8d775b8398385aee;hp=df7d9d2c0978e6fc2f5e15c8ecc7b7bde1b4353a;hpb=0f83109985b416d2e18e472ede54e4f633ed3596;p=kivitendo-erp.git diff --git a/SL/AM.pm b/SL/AM.pm index df7d9d2c0..bf5c97d0c 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -1410,7 +1410,7 @@ sub save_defaults { sub save_preferences { $main::lxdebug->enter_sub(); - my ($self, $myconfig, $form, $webdav) = @_; + my ($self, $myconfig, $form) = @_; my $dbh = $form->get_standard_dbh($myconfig); @@ -1434,20 +1434,10 @@ sub save_preferences { $myconfig->{$item} = $form->{$item}; } - $myconfig->save_member($main::memberfile); + $myconfig->save_member; my $auth = $main::auth; - if ($auth->can_change_password() - && defined $form->{new_password} - && ($form->{new_password} ne '********')) { - $auth->change_password($form->{login}, $form->{new_password}); - - $form->{password} = $form->{new_password}; - $auth->set_session_value('password', $form->{password}); - $auth->create_or_refresh_session(); - } - $main::lxdebug->leave_sub(); return $rc;