From: Moritz Bunkus Date: Mon, 28 Sep 2015 09:06:17 +0000 (+0200) Subject: gl.pl: komischen Debug-Code mit nicht existierenden Filehandles entfernt X-Git-Tag: release-3.4.1~700 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=fc63cd4361a105fce060cf0fc111d54300db74b3;p=kivitendo-erp.git gl.pl: komischen Debug-Code mit nicht existierenden Filehandles entfernt --- diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl index e66376bfd..026cf6a01 100644 --- a/bin/mozilla/gl.pl +++ b/bin/mozilla/gl.pl @@ -306,9 +306,6 @@ sub generate_report { # add employee here, so that variable is still known and passed in url when choosing a different sort order in resulting table my @hidden_variables = qw(accno source reference department description notes project_id datefrom dateto employee_id datesort category l_subtotal); push @hidden_variables, map { "l_${_}" } @columns; - foreach ( @hidden_variables ) { - print URL "$_\n"; - }; my $employee = $form->{employee_id} ? SL::DB::Employee->new(id => $form->{employee_id})->load->name : ''; @@ -332,8 +329,6 @@ sub generate_report { my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables); - print URL $callback; - close URL; $form->{l_credit_accno} = 'Y'; $form->{l_debit_accno} = 'Y';