X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FAuth.pm;h=9f2475fd8a833d7653e09f3c5557ad6b1afa98b6;hb=c7241bf7c547d63999898dee7b5dd486e4d122d3;hp=788154c14c8cd5c3867c5a5a190d92cc15ac6fa8;hpb=8f3e8a0254bc848d02958cc5e1fcdf600d5632a8;p=kivitendo-erp.git

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 788154c14..9f2475fd8 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -168,8 +168,8 @@ sub authenticate_root {
     return ERR_PASSWORD;
   }
 
-  $password             = SL::Auth::Password->hash(login => 'root', password => $password);
   my $admin_password    = SL::Auth::Password->hash_if_unhashed(login => 'root', password => $self->{admin_password}->());
+  $password             = SL::Auth::Password->hash(login => 'root', password => $password, stored_password => $admin_password);
 
   my $result = $password eq $admin_password ? OK : ERR_PASSWORD;
   $self->set_session_value(SESSION_KEY_ROOT_AUTH() => $result);