X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1c385c602908735c3be266b1470b301050650fd3..165a97b3d1d6190ae2a89a853bb62b58bf698308:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 5f3c65dd8..415898061 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -174,10 +174,7 @@ sub store_credentials_in_session {
 sub store_root_credentials_in_session {
   my ($self, $rpw) = @_;
 
-  $rpw = SL::Auth::Password->hash_if_unhashed(login => 'root', password => $rpw)
-    unless $self->{authenticator}->requires_cleartext_password;
-
-  $self->set_session_value(rpw => $rpw);
+  $self->set_session_value(rpw => SL::Auth::Password->hash_if_unhashed(login => 'root', password => $rpw));
 }
 
 sub dbconnect {