cleanup nach jedem import

[mfinanz.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 9adde75bae672e84d0f07845f9b96c0f75d9ac86..d01a0d03baaf241bd5ddb67cf15f370de3e4d5c7 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -241,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) {