From: Moritz Bunkus Date: Wed, 27 Apr 2011 08:37:38 +0000 (+0200) Subject: Nach $form->redirect() den Request beenden X-Git-Tag: release-2.6.3~31 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=3f93023866418c0ffa28622e00af120975e3c105;p=kivitendo-erp.git Nach $form->redirect() den Request beenden --- diff --git a/SL/Form.pm b/SL/Form.pm index 31020aebc..b63421750 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -996,17 +996,13 @@ sub redirect { my ($self, $msg) = @_; if (!$self->{callback}) { - $self->info($msg); - ::end_of_request(); - } -# my ($script, $argv) = split(/\?/, $self->{callback}, 2); -# $script =~ s|.*/||; -# $script =~ s|[^a-zA-Z0-9_\.]||g; -# exec("perl", "$script", $argv); + } else { + print $::form->redirect_header($self->{callback}); + } - print $::form->redirect_header($self->{callback}); + ::end_of_request(); $main::lxdebug->leave_sub(); }