X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/87f43489ced27939d5547f1c60ce61b86748bb4b..a3ae31cd5221738f7d0cc6bc2f4df316e7b83daa:/SL/Controller/Admin.pm

diff --git a/SL/Controller/Admin.pm b/SL/Controller/Admin.pm
index 5555baa20..e1d26fd8c 100644
--- a/SL/Controller/Admin.pm
+++ b/SL/Controller/Admin.pm
@@ -37,6 +37,7 @@ sub keep_auth_vars {
 sub action_login {
   my ($self) = @_;
 
+  return $self->redirect_to(action => 'show') if $::auth->authenticate_root == SL::Auth::OK();
   return $self->login_form if !$::form->{do_login};
   return                   if !$self->authenticate_root;
   return                   if !$self->check_auth_db_and_tables;