From: Moritz Bunkus <m.bunkus@linet-services.de>
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';