]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Controller/Admin.pm
Admin: bei Admin/login direkt Redirect zu show, falls bereits eingeloggt
[mfinanz.git] / SL / Controller / Admin.pm
index 7277e7940982ce6b908b66011fe4ab675557b6f3..e1d26fd8c8db890d6097126960ec5c927bebe610 100644 (file)
@@ -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;
@@ -58,7 +59,7 @@ sub action_apply_dbupgrade_scripts {
   my ($self) = @_;
 
   return if $self->apply_dbupgrade_scripts;
-  $self->action_show;
+  $self->redirect_to(action => 'show');
 }
 
 sub action_create_auth_db {