X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/75f692499bd11b7e2cd6fa4acb5c29923d0e281b..e0ba33ff38a40207472185d639567966e136da6b:/SL/Dispatcher.pm diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm index 9c9e60566..7abe58f7a 100644 --- a/SL/Dispatcher.pm +++ b/SL/Dispatcher.pm @@ -227,13 +227,14 @@ sub handle_request { 1; } or do { if ($EVAL_ERROR ne END_OF_REQUEST) { + print STDERR $EVAL_ERROR; $::form->{label_error} = $::cgi->pre($EVAL_ERROR); eval { show_error('generic/error') }; } }; # cleanup - $::auth->expire_session_keys->save_session; + $::auth->save_session; $::auth->expire_sessions; $::auth->reset;