cleanup nach jedem import

[mfinanz.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 35a351877f8f6ef84ac26f530141259780d4a3a0..d01a0d03baaf241bd5ddb67cf15f370de3e4d5c7 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -231,6 +231,7 @@ sub handle_request {
     } else {
       if (SL::Auth::SESSION_EXPIRED == $session_result) {
         print $::request->{cgi}->redirect('controller.pl?action=LoginScreen/user_login&error=session');
     } else {
       if (SL::Auth::SESSION_EXPIRED == $session_result) {
         print $::request->{cgi}->redirect('controller.pl?action=LoginScreen/user_login&error=session');

+        ::end_of_request();

       }
 
       my %auth_result = $self->{auth_handler}->handle(
       }
 
       my %auth_result = $self->{auth_handler}->handle(


@@ -240,6 +241,8 @@ sub handle_request {
         action       => $action,
       );
 
         action       => $action,
       );
 

+      ::end_of_request() unless $auth_result{auth_ok};
+

       delete @{ $::form }{ grep { m/^\{AUTH\}/ } keys %{ $::form } } unless $auth_result{keep_auth_vars};
 
       if ($action) {
       delete @{ $::form }{ grep { m/^\{AUTH\}/ } keys %{ $::form } } unless $auth_result{keep_auth_vars};
 
       if ($action) {