X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDispatcher.pm;h=e9f7dac09a7d13ba93530f497165607509535fa8;hb=bf8db146f807d3f374334f9b91671d32592c5974;hp=97a2f45f4918160aa9aeba59fe291bba9fc3e0a9;hpb=5aaa3c621371557ed9fde80ef6a07e2b7959c0cb;p=kivitendo-erp.git diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm index 97a2f45f4..e9f7dac09 100644 --- a/SL/Dispatcher.pm +++ b/SL/Dispatcher.pm @@ -95,7 +95,7 @@ sub pre_startup_setup { $::auth = SL::Auth->new; $::form = undef; %::myconfig = (); - %::called_subs = (); # currently used for recursion detection + $::request = undef; } $SIG{__WARN__} = sub { @@ -168,11 +168,10 @@ sub handle_request { $self->unrequire_bin_mozilla; - $::cgi = CGI->new(''); $::locale = Locale->new($::lx_office_conf{system}->{language}); $::form = Form->new; - %::called_subs = (); $::instance_conf = SL::InstanceConfiguration->new; + $::request = { cgi => CGI->new({}) }; my $session_result = $::auth->restore_session; $::auth->create_or_refresh_session; @@ -240,7 +239,7 @@ sub handle_request { } or do { if ($EVAL_ERROR ne END_OF_REQUEST) { print STDERR $EVAL_ERROR; - $::form->{label_error} = $::cgi->pre($EVAL_ERROR); + $::form->{label_error} = $::request->{cgi}->pre($EVAL_ERROR); eval { show_error('generic/error') }; } }; @@ -253,6 +252,7 @@ sub handle_request { $::locale = undef; $::form = undef; $::myconfig = (); + $::request = undef; Form::disconnect_standard_dbh; $::lxdebug->end_request; @@ -310,7 +310,7 @@ sub _route_dispatcher_request { 1; } or do { - $::form->{label_error} = $::cgi->pre($EVAL_ERROR); + $::form->{label_error} = $::request->{cgi}->pre($EVAL_ERROR); show_error('generic/error'); }; @@ -327,7 +327,7 @@ sub _route_controller_request { 1; } or do { - $::form->{label_error} = $::cgi->pre($EVAL_ERROR); + $::form->{label_error} = $::request->{cgi}->pre($EVAL_ERROR); show_error('generic/error'); };